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Foreword 


This latest addition to COMPUTEl's library of books for Atari 
computer users includes more than 30 never-before-published 
articles and programs. 

COMPUTERS Atari Collection , Volume 1 has something for 
every Atari owner. Whether you have a new Atari 800XL or 
the older 400, whether you're a beginning or experienced pro¬ 
grammer, or just enjoy using your Atari, you'll find enough 
useful articles and programs to keep you in front of the key¬ 
board for months. 

If you enjoy games (and who doesn't?), you'll find 
"Nessie" filled with photographic fast action as you snap pic¬ 
tures of the elusive monster. If you want to try to out- 
maneuver and outwit your computer or a friend, "Reversi" 
and "Memory Match" fit the bill. Even youngsters can play— 
we've included "Pyramid Math," a two-player math contest, 
and "Alphabone Hunt" to entertain and educate children. 

Do you need practical applications? They're here. "Invest¬ 
ment Tracker" helps analyze your investments, and "Disk 
Catalog Utility" organizes your disk collection. 

What if you just want to sit down and program? There are 
useful tips scattered throughout this book, as well as numer¬ 
ous articles that help you learn how to get more out of your 
Atari. Do you want to program sound? Then use the editors 
included with "Three Music Editors for Your Atari" to create 
notes, chords, or an entire song. Do you need a fast joystick 
routine in BASIC for your special game? You'll find what you 
need in "Two Fast and Simple Joystick Routines." And "An 
Introduction to Atari PEEKs and POKEs" shows you how to 
quickly and easily enhance your programs with these two im¬ 
portant commands. 

COMPUTEl's Atari Collection , Volume 1 is packed with 30 
original programs. They've never appeared anywhere else 
before. And because we've included "The Automatic Proof¬ 
reader," program entry is virtually mistakeproof. 

An entire year has gone by since COMPUTE! Publications 
released a new book just for Atari users. We're sure you'll 
agree the wait's been worth it. 
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An Introduction to Atari 
PEEKS and POKES 

Charles Brannon 


If you're a beginning BASIC programmer, you may not realize 
that there's more to your Atari than BASIC. In fact, the Atari 
has power that BASIC just doesn't address. For example, you 
can redefine the character set, so that the letter A appears as 
an alien invader. Player/missile graphics lets you move and 
animate images independently of the graphics screen. Custom 
display lists and display list interrupts give a programmer 
complete control over the graphics screen, and the POKEY 
chip gives you more than just four-voice sound. 

It's possible to use many of these features in BASIC, 
though some require machine language and most are beyond 
the beginning programmer. However, there are many power¬ 
ful capabilities that anyone can put to good use right away— 
and since BASIC can't access them directly, you need two spe¬ 
cial BASIC keywords: PEEK and POKE. 

Atari Memory Management 

The 6502 microprocessor is the brain of your Atari. It can di¬ 
rectly address any of the 65,536 memory locations. Some of 
this memory is RAM, the read/write memory used to hold 
data and programs from tape or disk; the rest of the memory 
is ROM (Read Only Memory) that holds BASIC and the 
operating system. When the power is turned off, RAM is 
erased, but the pattern in ROM is not dependent on power. 
You may already be familiar with ROM and RAM. 

But there's also a third kind of memory which isn't really 
memory at all. Instead, it is a facade used by input/output 
chips. Input/output chips in the Atari include the GTIA, a 
graphics chip; ANTIC, which drives the GTIA to produce 
graphics modes and player/missile graphics; and POKEY, 
which reads the keyboard and drives serial input/output (used 
to talk to a disk drive or printer). These chips require infor¬ 
mation (such as what characters to put on the screen) and can 
produce information (such as which key is being pressed). 

To make things easy, these chips pretend to be memory 
locations. POKEing to an I/O (input/ouput) memory address 
alters the action of a chip, and PEEKing will give you infor¬ 
mation from the chip. 
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From the point of view of the computer, these are mem¬ 
ory locations. In fact, some behave like RAM. For example, 
you can POKE a number to a location, and then PEEK the 
location to get the number back. 

Most I/O addresses are either read-only or write-only. 
Read is like ROM. Write-only memory locations can be 
changed, but you can't PEEK them to see what the current set¬ 
ting is. 

Sometimes a given memory location is used for two func¬ 
tions. Writing (POKEing) to the location does one thing, while 
reading (PEEKing) does another. For example, the color loca¬ 
tions in hardware will change the screen color if you POKE 
them, but PEEKing them returns a meaningless value. To get 
around this, the operating system (the master program that co¬ 
ordinates all other programs) keeps several shadow registers 
that can be PEEKed and POKEd. These locations are ordinary 
memory locations, but their values are copied to the hardware 
color registers every 1/60 second. Many hardware features are 
accessed through their corresponding shadow registers. 

PEEK and POKE 

The personality of the operating system is affected by many 
POKEs, and you can read useful information hidden to BASIC 
with PEEK. 

POKE is used to change memory (although you can 
POKE to ROM, nothing changes). The format is POKE 
address,data. The address is a number from 0 to 65535. Each 
number accesses a memory cell, which can hold a number 
from 0 to 255. 

A memory cell can be thought of as holding eight tiny 
switches. If you assign ascending powers of two to each 
switch, you can use these switches to represent numbers. This 
convention is called base 2, or binary. For advanced PEEKing 
and POKEing, an understanding of binary numbers can be 
most helpful. However, all you need to know to get started is 
that a memory location can only hold a number from 0 to 255. 

PEEK is the converse of POKE, but it is a function rather 
than a command. PEEK returns a value, and any command 
that can use a value can use PEEK. For example, consider how 
PRINT can be used. You can PRINT 4, which displays a num¬ 
ber; PRINT TOTAL, which displays the number held by the 
variable name TOTAL; or PRINT PEEK(53279), which dis- 
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plays the number held in location 53279. Note, too, that PEEK 
can be used with POKE (for example, POKE 106,PEEK 
(106) —8). 

Keyboard Control 

In BASIC, you can use GET to read a character from the key¬ 
board. But GET always waits for a keystroke. Say you want to 
periodically check for keyboard input. If no key is pressed, 
your program continues. But since GET always waits for a 
keystroke, it will freeze your program until a key is pressed. 

Instead of using GET, you can check location 764 with 
PEEK(764). When it returns a 255, no key has been pressed 
and you can continue your program loop. Whenever it doesn't 
return 255, you can use GET to read the ATASCII value of the 
keystroke. 

Another problem with GET is that you must first OPEN a 
file to the keyboard device. If you only want to wait for a key¬ 
stroke, you can use something like this: 

10 PRINT "PRESS ANY KEY TO CONTINUE." 

20 IF PEEK(764)=255 THEN 20 
30 POKE 764,255 

The value returned by location 764 is not in ATASCII, the 
convention used by ASC and CHR$. The number is an in¬ 
ternal representation of the key, expressed in terms of what 
row and column the key is in. Run this small program to see 
what values keystrokes return. When you press a key, the in¬ 
ternal value is shown: 

10 PRINT PEEK(764):GOTO 10 

Notice that until you press a key, the value is 255. That's why 
you can wait for a keystroke by checking until the location no 
longer holds 255. Also note that when CTRL is held down, 
the value is greater than 127. If either SHIFT key is used, the 
value is greater than 63, but less than 128. 

This location is used as a one-key buffer. Even if a pro¬ 
gram is not accepting keyboard input, this location still 
changes when you press a key. If the program then tries to 
GET or INPUT from the keyboard, location 764 will provide 
the keystroke you pressed earlier, even if you are no longer 
pressing the key. 
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POKE 764,255 clears any value out of the keyboard 
buffer. You can even POKE 764 with other values, and watch 
how these values cause the computer to type out a character 
automatically. 

When you ran the program, you may have noticed that 
764 cannot tell if you are holding down a key. Once you press 
a key, the value in 764 changes and remains changed until 
you press another key. It will not return to 255 when you let 
go of the key. Sometimes, however, you may want to see if a 
key is being held down. This small program simulates the ac¬ 
tion of an organ. When you press a key, a tone sounds as long 
as you hold down the key and stops when you let go: 

10 IF PEEK(53775)=255 THEN SOUND 0,0,0,0:60 
TO 10 

20 SOUND 0, 100, 10,8:GOTO 10 

Location 53775 holds 255 if no key is being pressed, 251 if a 
key is down, and 247 if the SHIFT key is being held down. 

Controlling the Inverse Key 

If you are GETting or INPUTting from the keyboard, you may 
not want the user to enter inverse or lowercase characters. 
Since the INVERSE key is easily struck by mistake on the 
400/800 models, you need a way to force inverse video off. 
Alternately, you may want to "press" the INVERSE key for 
the user, so that everything he types comes out in reverse. 
Location 694 controls this. POKE it with a 128 to force inverse 
characters, and 0 to disable inverse. It's a temporary thing, 
though. If the user hits the INVERSE key again, 694 changes. 
This location will not affect how text is printed, only how it's 
received from the keyboard. 

A similar location, 702, stores the status of the 
CAPS/LOWR key. If CAPS lock is on, 702 holds 64, but it 
holds 0 if the keyboard is in lowercase mode. Location 702 
will hold 128 if the keyboard is in CTRL-mode (same as 
CTRL-CAPS/LOWR). You can use POKE to force the key¬ 
board into the desired mode under program control. Try this: 

10 DIM A$(10) 

20 PRINT "ENTER","0 FOR LOWERCASE":PRINT 

64 FOR UPPERCASE":PRINT ,"128 FOR CONTRO 
L MODE" 
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30 INPUT X : IF XO0 AND X<>64 AND X<>128 THE 
N 30 

40 POKE 702 ? X 
50 INPUT A$ 

60 PRINT A$:PRINT sPRINT 
70 GOTO 20 

Consoling Information 

The console keys START, OPTION, and SELECT cannot be 
read as other keyboard keys can. Whatever you use them for 
is up to you, but you can easily read them by checking loca¬ 
tion 53279. Here are the values returned: 

7 No console keys held down 
6 START key alone 
5 SELECT key alone 

3 OPTION key alone 

0 START, SELECT, and OPTION pressed simultaneously 

1 OPTION and SELECT together 

2 OPTION and START together 

4 SELECT and START together 

This simple program demonstrates how that can be used: 

10 A=PEEK(53279) 

30 ON A-f-1 GOSUB 50,60,70,80,90,100,1 10 
40 GOTO 10 

50 PRINT "START + SELECT + OPTION" s RETURN 

60 PRINT "OPTION + SELECT"s RETURN 

70 PRINT ”OPTION + START ,, :RETURN 

80 PRINT "OPTION":RETURN 

90 PRINT "SELECT +START" :RETURN 

100 PRINT "SELECT":RETURN 

110 PRINT ’•START” : RETURN 

Notice that when you press a console key, that key contin¬ 
ues to return its value as long as you hold it down, but that it 
returns to normal (7) when you let go. This rapid-fire repeat is 
often undesirable. To remove it, add this line to the program: 

20 IF PEEK(53279)=A THEN 20 

This waits until you let go of the selected key to print 
the message on the screen, so you get only one message each 
time the key is pressed. Nothing will happen until you let go 
of the key. 


7 




Chapter 1 


Remember how some locations have different functions 
when read or written? Location 53279 is one of them. When 
read, it tells you what console keys are being held down. But 
if you POKE it with a zero, the internal speaker (or the ex¬ 
ternal speaker on XL Ataris) makes a tiny click. Zero makes 
the speaker cone move out, but the operating system puts an 
eight (which moves the cone back in) into 53279 every 1/60 
second. Rapidly POKEing this location with zeros creates a 
buzzing noise. Notice how those two functions tied to this 
location have nothing in common. 

While we're on the subject of keyboard POKEs and 
PEEKs, here's how to disable the BREAK key. You might want 
to do this to prevent anyone from exiting and listing your 
BASIC program, or you may want to protect the user from 
accidentally breaking out of a program. Just use these two 
POKE statements: 

POKE 16,64:POKE 53774,64 

You can reenable the BREAK key by changing graphics modes 
or by pressing SYSTEM RESET. If you don't want the BREAK 
key reenabled, you must repeat these POKEs after every 
GRAPHICS command or any OPEN statement. 

Although SYSTEM RESET cannot be disabled, you can 
make someone wish they hadn't pressed it. If you POKE 580 
with a value other than 0, the SYSTEM RESET will act as if 
you turned the power off and on. This is called a cold start, as 
opposed to the warm start normally performed by this key. 
POKE 580,0 to reenable warm start. 

Screen Play 

Although it's easier to use SETCOLOR, you can also POKE di¬ 
rectly into the color registers to set colors. POKEing can be 
faster and more compact, since there is only one number to 
evaluate instead of four. Locations 708-712 correspond di¬ 
rectly to SETCOLOR 0 through SETCOLOR 4. Each location 
holds both the color and luminance. Just multiply the color 
number (0-15) by 16 and add in the luminance (0-15). 
SETCOLOR a,b,c corresponds to POKE 708 + a,b*16 + c. For 
example, POKE 712,10 changes the border color to white. 

Location 559 can, among other things, turn the screen dis¬ 
play on and off. POKE 559,34 is the normal setting. If you 
POKE 559,0 the screen blanks to the border color. 
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How can you use this? To speed up programs. Since it 
takes some time to display the screen, the Atari can run up to 
30 percent faster with the screen turned off. You can blank the 
screen when you perform a long calculation, as long as you 
warn the user so that he or she doesn't panic when the screen 
blanks out. You may also want to blank the screen while you 
are drawing a complex image, then turn the screen back on to 
make your graphics instantly appear. 

You may have heard of locations 82 and 83. These loca¬ 
tions are primarily used to let you adjust the width of the 
screen, since some televisions cannot display the full width of 
the screen. Location 82 controls the left margin. PEEK will re¬ 
turn the current setting, and POKE resets it. The left margin is 
the number of blank spaces from the edge of the screen. If you 
want a full 40-column screen, use POKE 82,0. 

The right margin, set by location 83, is a number from 0 
to 39 and represents the number of spaces from the left side of 
the screen (not from the left margin). After you change the 
margins, subsequent PRINT statements will conform to the 
new margin settings. Do not make the left margin greater than 
the right margin. Why not? Try it and find out! Also beware 
that if you make the width of the screen too small, you cannot 
type any commands. In any case, SYSTEM RESET restores the 
left margin to 2 and the right margin to 39. 

Curse That Cursor! 

The cursor can be a pesky critter, since it remains on all the 
time, showing the current PRINT position. It's easy enough to 
disable it, though—just POKE 752,1. A zero in 752 enables 
the cursor. After you POKE this location, the cursor will not 
change until the next PRINT statement moves it, or after you 
clear the screen. Any change in graphics modes will restore 
the cursor. SYSTEM RESET also turns the cursor back on. 

You can also control how inverse characters appear. A two 
in location 755 is the normal state. All the dots making up the 
character will reverse their color. POKE it with a zero, and all 
inverse characters will not be inverted, but will appear as nor¬ 
mal characters. Put a one here, and inverse characters will be 
invisible. A three makes all inverse characters appear as in¬ 
verse spaces (opaque). Add four to any of these values, and all 
text will appear upside-down and mirror-reversed. (This fea¬ 
ture was originally used in videogames that projected the 
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screen onto a mirror.) Since the cursor is just the inverse of 
whatever character it is sitting on, 755 also affects the appear¬ 
ance of the cursor. Try this short program to see how you can 
use 755 to make flashing text: 


ii 


INVERSE CHARACTERS 


100 PRINT 
110 POKE 755,2-PEEK<755):FOR 
W:GOTO 110 


I CAN 
W=1 


BLINK" 

TO 50:NEXT 


You can easily read the position of the cursor by checking 
locations 84 and 85. Location 84 holds the current row (the 
vertical position of the cursor) and ranges from 0 to 23. The 
current column, 0-39, is in location 85. You can use PO¬ 
SITION in BASIC to directly move the cursor to an X,Y loca¬ 
tion, but with POKE you can change the row or column 
separately. When you change 84 or 85, the cursor does not ac¬ 
tually move until a PRINT statement is used. 

POKE 85 is the replacement for Atari's missing TAB state¬ 
ment. It makes formatted displays easy. For example, the line 

Z = Z + 6:PRINT TAB(20-19*SIN(Z));CHR$(42):GOTO 10 

prints a sine wave in Microsoft BASIC. It's easily translated to 
Atari BASIC: 


10 Z = Z+ 6:POKE 85,20-19*SIN(Z) : PR I NT CHR$<42 
):GOTO 10 


In a graphics mode, locations 84 and 85 control the po¬ 
sition of the graphics cursor, not the text cursor. The text 
cursor is set in these modes by location 656 (row) and 657 
(column). 

You can also change location 201. It holds the number of 
spaces between comma zones. When you print a list of vari¬ 
ables (such as PRINT A,B,C$) each item is tabbed over into a 
separate zone ten spaces wide. If what you are printing over¬ 
flows into the next zone, the following item will have to go 
into the zone after that. You can change the width of the 
comma zone by POKEing 201. Do not ever put a 0 in this 
location, or the computer will freeze up when it encounters 
the comma, forcing you to press SYSTEM RESET or turn off 
the power to regain control. You may want to change it back 
to 10 when you are through, or other programs using PRINT 
may tab strangely. 
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The Sound of Silence 

When you read or write to tape or disk, the speaker beeps and 
warbles in conjunction with bytes being sent out or pulled in 
from disk. While this can be a good diagnostic aid (some people 
can hear the difference between reading and writing, and can 
tell right away if there's been a read error), it can get on your 
nerves. Additionally, if you have recorded an audio track to 
play while the program loads, the beeps can get in the way. 
POKE 65,0 disables the sound, although you can barely hear it 
if you turn the volume up. This does not disable the sound 
made by keystrokes, and has no effect on the SOUND com¬ 
mand. Any nonzero value will reenable the input/output 
sounds. 


Special Atari XL POKES 

The 1200XL, the new 600XL and 800XL, and the promised 
1450XLD all use the new XL operating system. The new 
operating system represents a considerable increase in power 
and flexibility. What this means is that there are more juicy 
POKEs to try. Remember that none of these POKEs will work 
with the older 400/800 computers, so if you are writing pro¬ 
grams for publication or sharing, keep this in mind. 

The most astounding POKE enables fine scrolling in 
GRAPHICS 0. Just enter POKE 622,255:GRAPHICS 0. If you 
want a convenient way to watch the scrolling, just enter FOR 
1 = 1 TO 1000:? I:NEXT I. 

Unlike normal scrolling, which moves the screen text up a 
full line at a time, fine scrolling moves the characters pixel by 
pixel. This fine scrolling can adversely affect some programs, 
so to turn it off, enter POKE 622,0:GRAPHICS 0. Of course, 
the scrolling works only with GRAPHICS 0. 

The 1200XL has additional function keys to control key¬ 
board click, keyboard enable, screen blanking, and the inter¬ 
national character set. If you own a 600XL or 800XL, you may 
not even be aware of these features. First, try POKE 756,204. 
No immediate changes. Now hold down CTRL and type some 
letters of the alphabet. Instead of the graphics characters, these 
keys now produce all kinds of special foreign language sym¬ 
bols. Enter POKE 756,224 and the character set will return to 
normal. Now you can write multilingual programs without 
having to redefine the character set. 
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To disable the keyboard, POKE 621,255. Use POKE 621,0 
to reenable it. Don't try this POKE from the keyboard, or you 
won't be able to type the POKE that restores the keyboard. In 
any case, SYSTEM RESET will get you out of this mode. It's 
best to do this POKE under program control. It's useful when 
you don't want the user to type keys that may interfere with 
your program. 

The XL Atari models all have a HELP key. Although not 
used by the operating system or BASIC, you can read this key 
in your own programs, and act on it. Once HELP is pressed, 
location 732 holds a 17. It will continue to hold 17 until you 
POKE 732,0. You should check to see if location 732 holds a 
nonzero value, then POKE 732,0 once you've acted on the 
key. If SHIFT is held down with HELP, 732 will return a value 
of 81. A value of 145 indicates that CTRL is used with HELP. 

Every time you press a key, the internal speaker (on the 
400/800) or the external speaker (XL Ataris) makes a soft blip. 
This positive audio feedback aids in touch-typing, but some 
find it annoying. There's no easy way to disable this beep on 
the 400/800 without cutting the wire to the internal speaker, 
but you can disable it on XL Ataris. Just POKE 731,255. A 
value of 0 allows the keyclick to be heard. You can also 
change the rate at which keys repeat. There are two factors in 
repeating keys. When you press a key, you don't want it to re¬ 
peat instantly. Instead, the operating system waits for 4/5 sec¬ 
ond before it starts the repeating. Once the repeating starts, 
the other time factor is how quickly the key is repeated. This 
defaults to about 10 repeats per second (or 1/10-second delay 
between repeats). In the operating system, these time delays 
are expressed in multiples of 1/60 second. A value of 60 is a 
full second, 30 is a half-second, and so on. To change the de¬ 
lay before the key begins to repeat, POKE 729. Location 730 
specifies the delay between the key repeats. The default values 
for 729 and 730 are 48 and 6 respectively. 

The power offered by the Atari computers continues to 
challenge even the most advanced programmers. The locations 
covered here give a BASIC programmer additional capability, 
but there's much, much more. Read the other articles in this 
book and study the PEEKs and POKEs used in the programs 
for more ideas. If your curiosity is irresistibly piqued, check 
into COMPUTE! Books' Mapping The Atari , a comprehensive 
guide to memory. 
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PEEKing and POKEing 
Around 

Sheila Neece Spencer 


This well-designed program will make it easy for you to 
look into your Atari's memory. You'll also be able to 
change memory, load ML programs, and even convert 
hex, decimal, and binary numbers. 

As I pored over my Atari manuals one day, it occurred to me 
how helpful it would be to look at the contents of memory 
locations in their t)inary configurations. That would let me see 
which bits were set and which were not. 

One thing led to another, and the result was the program 
given here. Not only does it let you look at memory locations 
in hex, decimal, and binary, but it also lets you POKE ad¬ 
dresses with binary numbers; convert hex, decimal, and binary 
numbers; and enter and run a machine language program in 
hex or decimal—all without leaving the comfort of this one 
program. 

The contents of any address in memory are made up of 
one byte (eight t>inary digits). A binary number consists of l's 
and 0's only; a 1 indicates that a bit is turned on, while a 0 in¬ 
dicates that it is turned off. The bits are numbered from 0 to 7 
from right to left. 

Binary is the only language your Atari can actually under¬ 
stand. When you insert a language cartridge into your machine, 
you are actually providing your Atari with an interpreter 
which allows you to communicate with it (via a language such 
as BASIC) in some meaningful and useful way. 

Nine Options 

Now to the program itself. Type it in, then save a copy before 
you use it. 

When you run the program, you'll get a menu with nine 
options. Option 1 allows you to examine any memory location 
and see its contents in hex, decimal, and binary. 

Option 2 lets you change memory by entering a binary 
number. I chose to use binary here in order to get the feeling 
of actually setting bits in the address. I think "bits 0 and 1 
set" is a little easier to visualize than "POKE x,3". 

Be careful when using option 2. If you POKE the wrong 
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number into the wrong location, you run the risk of crashing 
your system. Then you'll have to turn the computer off and on 
again to regain control. 

Some interesting places to make changes are locations 
53760-53768 (the sound registers), 53266-53274 (the 
player/missile graphics color registers), and 53248-53255 (the 
player/missile graphics position registers). You may see some 
strange things on your screen when you play around with 
these registers, but pressing SYSTEM RESET will generally get 
you out of whatever mess you've gotten into. 

Options 3-8 are conversion routines. Note that if you are 
entering a hex number to be converted, you must always enter 
two digits, even if the first one is a 0. Otherwise, you will get 
an erroneous answer. 

Option 9 lets you put a machine language program into 
memory. You will be asked to choose between hex and deci¬ 
mal input and to specify a starting address (1536 is usually a 
good starting point for short machine language programs). You 
will then input the instructions one by one. Once again, be 
very careful as you type in the instructions. One wrong digit 
can crash the system. 

When you have entered the last instruction, hit RETURN. 
The program will prompt you to be sure the RETURN was not 
an error by asking "Is that all?" If you reply with N, it will re¬ 
turn you to the routine and allow you to continue inputting 
instructions. However, Y will prompt the program to ask you 
if you wish to run the program you have just entered. At that 
point, N will return you to the menu. 

Understanding PEEK and POKE 

For error-free program entry, read "The Automatic Proofreader" in this chapter before 
typing in this program. 

CH 5 DIM A*(2) ,AD*<1> ,B*<4> ,C*(5) ,RESP*< 1 > ,BIN 
* <8) ,MODE* (3) , INST* <2) ,TD(2) ,N*(8) .TITLE* 
(20) ,BYLINE* (12).NAME*(14) 

HC 6 MENU=600:CLICK=6000:B*=”0000" 

DF 7 GOTO 5000 

AN 39 REM DECIMAL TO HEXADEMICAL CONVERSION SU 
BROUTINE 

NN 4 0 N = PEEK (ADDRESS) : N1=PEEK (ADDRESS) 

BO 60 1=2 

PI 70 TEMP=N:N=INT(N/16):TEMP=TEMP-N*16:IF TEM 
P<10 THEN A*(I,I)=STR*(TEMP):GOTO 90 
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AH 80 A* (1,1) =CHR* (TEMP-10+ASC < " A ” ) ) 

CB 90 IF N< >0 THEN I=I-1:G0T0 70 

AC 9 1 IF M = 3 OR M = 8 THEN ? " HE X = ” ; A* ( I , 2 ) s A* = " 

C,}":B*="C4 SPACES}":C$="C5 SPACES! RET 
URN 

NL 95 IF M >4 THEN RETURN 

AI 100 REM HEXADECIMAL TO BINARY CONVERSION SU 
BROUTINE 


FC 1 10 

IF 

A$ ( 1 , 

1 ) 

= " <, 

3- u OR 

A$(l, 1 ) = ”0” THEN B$ 


_ii 

0000" 





OP 120 

IF 

A$(l, 

1 ) 

— II II 

THEN 

B$="0001” 

PB 130 

IF 

A$(l, 

1 ) 

- ii 2 ii 

THEN 

B$="0010" 

PE 140 

IF 

A$ ( 1 , 

1 ) 

_ n 3 n 

THEN 

B$=”001 1 M 

PF 150 

IF 

A$ < 1 , 

1 ) 

= " 4 " 

THEN 

B$ =,, 0100" 

PI 160 

IF 

A$(l, 

1 ) 

_ ii tr ii 

ftJ 

THEN 

B$="0101" 

PK 170 

IF 

A$ ( 1 ? 

1 ) 

= "6" 

THEN 

B$="0110” 

PH 180 

IF 

A$ < 1 , 

1 ) 

_. ii -j ii 

THEN 

B$="0 1 1 1 " 

PN 190 

IF 

A$ < 1 , 

1 ) 

= ” 8 " 

THEN 

B$="1000” 

PH 200 

IF 

A$(l, 

1 ) 

_ ii ii 

THEN 

B*="1001” 

AA 210 

IF 

A$ < 1 , 

1 > 

= " A " 

THEN 

B*="1010” 

AD 220 

IF 

A$(l, 

1 ) 

= " B " 

THEN 

B$="1011" 

AE 230 

IF 

A$(l, 

1 ) 

= " C " 

THEN 

B$="1100" 

AH 240 

IF 

A* ( 1 , 

1 ) 

= "D" 

THEN 

B$="1101" 

AJ 250 

IF 

A* ( 1 , 

1 ) 

= ii r ii 

THEN 

B*=”1110" 

AH 260 

IF 

A* ( 1 , 

1 ) 

_ ii p- ii 

THEN 

B$="1111" 

PG 270 

IF 

A* (2, 

2 > 

_ ii 0 i. 

THEN 

C$=" 0000” 

PJ 280 

IF 

A* <2, 

2) 

_ II 4 II 

THEN 

C$=" 0001" 

PL 290 

IF 

A* <2, 

2) 

_ii o ii 

THEN 

CS=" 0010" 

PF 300 

IF 

A* <2, 

2) 

= " 3" 

THEN 

C$=" 0011” 

PS 310 

IF 

A$(2, 

2) 

= *’ 4 " 

THEN 

C$=" 0100” 

PJ 320 

IF 

A$(2, 

2) 

_ ii cr n 

kJ 

THEN 

C*=" 0101" 

PL 330 

IF 

A$ <2 ? 

2) 

= ” 6 " 

THEN 

C$=" 0110" 

PO 340 

IF 

A$ < 2 , 

2) 

— ii y ii 

THEN 

C$=" 0111” 

PO 350 

IF 

A$ ( 2 ? 

2) 

= ,, 8" 

THEN 

C$=" 1000" 

AB 360 

IF 

A* <2, 

2) 

__ ii <y ii 

THEN 

C$=" 1001" 

AK 370 

IF 

A* <2, 

2) 

= ” A n 

THEN 

C*=" 1010" 

AN 380 

IF 

A* < 2, 

2) 

= " B " 

THEN 

C*=" 1011" 

AO 390 

IF 

A$ (2, 

2) 

= ” C ” 

THEN 

C*=" 1100” 

AI 400 

IF 

A* (2, 

2) 

= " D " 

THEN 

C*=” 1101" 

AK 4 1 0 

IF 

A$ (2, 

2) 

_ » p ii 

THEN 

C*=" 1110" 

AN 420 

IF 

A$ (2, 

2) 

— ii p- ii 

THEN 

C*=" 1111" 

LK 421 

IF 

M = 4 OR 

M = 7 

THEN 7 

"BINARY=";B$;C$:A$ 


_ ii 

{ , 3 " : B$ = 

"(4 

SPACES 

3 ”:C* ="C 5 SPACES* ": 


RETURN 

FI 422 ? "14 SPACES3HEX: " ; A* ( I , 2 ) : ? "DECIMAL: 

“5 N1:? " BINARY: ";B$;Ci:? "PEEKC;ADD 

RESS; "> =";PEEK(ADDRESS) 

LB 440 IF M= 1 OR M = 2 THEN = >":B$=" 

14 SPACES}":C$=" C5 SPACES}":RETURN 
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AE 450 IF M = 3 THEN ? ” HE X = " ; A* ( I , 2 ) : ? :A*=” 

C,>“:RETURN 

DL 460 IF M = 4 THEN ? " B I NARY= ” ; B* ; C* : B* = ” 

14 SPACES!C*="<5 SPACES!":RETURN 
PH 499 REM BINARY TO DECIMAL CONVERSION SUBROU 
TINE 

AH 500 TRAP MENU: B7 = VAL (BIN* < 1 , 1 )): B6 = VAL (BIN* 
<2.2)3:B5 = VAL<BIN* <3,3) > :B4 = VAL(BIN* <4, 
4) ) 

HA 505 IF BIN*="00000000" THEN PKR=0:GOTO 526 
HC 510 B3 = V AL (BIN* (5,5) ) s B2=VAL (BIN* <6,6) ) :B1 = 
VAL(BIN*(7,7)):B0=VAL(BIN*(8,8)) 

JO 520 P K R = I N T (B7*2-"7 + B6*2~6 + B5*2-"5 + B4*2''4 + B3* 
2^3 + B2*2"'2 + Bl*2^1+B0*2''0)+l 
HH 525 IF B7 AND NOT B6 AND NOT B5 AND NOT 
B4 AND NOT B3 AND NOT B2 AND NOT B1 
AND NOT B0 THEN PKR=PKR-1 
AH 526 IF M = 6 THEN ? " DEC I MAL= ” ; PKR : RETURN 

PO 527 IF M = 8 THEN RETURN 
AA 530 POKE ADDRESS, PKR: RETURN 
HA 599 REM MENU 

NL 600 ? " ICLEARI " : POKE 752, 1 : POSITION 16,4:7 

" dMHE” : 7 

SB 610 7 :? :? "O LOOK AT CONTENTS OF MEMORY": 

7 "£ CHANGE CONTENTS OF MEMORY":? "E CO 

NVERT A DECIMAL NUMBER TO HEX" 

DO 615 7 "E CONVERT A DECIMAL NUMBER TO BINARY 
":? CONVERT A HEX NUMBER TO DECIMAL" 

:? "E CONVERT A BINARY "; 

FE616 7 "NUMBER TO DECIMAL":? "6 CONVERT A HE 
X NUMBER TO BINARY":? "E CONVERT A BINA 
RY NUMBER TO HEX" 

CO 617 7 "E ENTER A SERIES OF POKES":? " IN S 
UCCEEDING MEMORY LOCATIONS" 

PS 620 TRAP MENU: INPUT M:7 " CCLEAR3 " : ON M GOTO 

1000,1050,1100,1100,1200,1300,1400,150 
0,1600 

EJ 699 REM HEXADEMICAL TO DECIMAL CONVERSION S 
UBROUTINE 


BC 700 

FOR 

Q= 1 TO 2 




CP 70 1 

IF 

INST*(Q,Q)="0" 

THEN 

TD (Q) 

= 0 

DF 705 

IF 

INST*(Q,Q)=»1" 

THEN 

TD (Q) 

= 1 

DD 710 

IF 

INST*(Q,Q)="2" 

THEN 

TD (Q) 

= 2 

DK 715 

IF 

INST*(Q,Q)="3" 

THEN 

TD(Q) 

= 3 

BI 720 

IF 

INST* <Q,Q)="4" 

THEN 

TD (Q) 

= 4 

DP 725 

IF 

INST*(Q,Q)="5" 

THEN 

TD (Q) 

= 5 

DN 730 

IF 

INST* <Q,Q)="6" 

THEN 

TD (Q) 

= 6 

EE 735 

IF 

INST*(Q,Q)="7 M 

THEN 

TD (Q) 

= 7 

EC 740 

IF 

INST* (Q, Q) = ,, 8" 

THEN 

TD ( Q ) 

= 8 
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EJ 745 IF INST$(Q,Q)= ,, 9" THEN TD(Q)=9 

•HF 750 IF INSTt < Q, Q> ="fi” THEN TD<B) = 10 

HH 755 IF INST$(Q,Q)="B" THEN TD(Q) = 11 

HP 756 IF INST* <Q, Q) ="C" THEN TD<Q) = 12 

IC 757 IF INST* (Q, Q) ="D“ THEN TD(0) = 13 

IF 758 IF INST* (Q, Q) = "E" THEN TD(Q)=14 

I! 759 IF INST* (Q, Q) ="F" THEN TD(Q) = 15 

LC 760 NEXT Q : I NST = TD ( 1 ) * 1 6 + TD ( 2 ) : I F M = 5 THEN 
? “DEC I MAL ="; INST 
HO 770 RETURN 

KK 999 REM "1" LOOK AT CONTENTS OF MEMORY 

GF10 00 7 i 7 : 7 "What is the address you want 

to see?”:INPUT ADDRESS:GOSUB 40:GOTO 1 
000 

PA 1040 TRAP 40000 

KK 1049 REM " 2 ” CHANGE CONTENTS OF MEMORY 
OD 105 0 ? :? :? "Please enter the address you 

wish to poke data into"INPUT ADDRES 
S 

FM 10 60 7 z 7 "Now enter the binary configurati 

on youwant in the register (bits are n 
utn-{3 SPACES} bered from 7 to 0 left "; 
EE 1070 ? "to right) . INPUT BIN$:GOSUB 500:? 

:? "PEEK ADDRESS;")="; PEEK < ADDRESS) : 
? : 7 :G OT O 1050 

DC 1099 REM "3" AND "4" CONVERT A DECIMAL # TO 

HEX or CONVERT A DECIMAL # TO BINARY 

IL 1100 7 z 7 :? "Enter the number to convert"; 

:INPUT N:GOSUB 60:GOTO 1100 
CN 1199 REM "5" CONVERT A HEX # TO DECIMAL 

PH 1200 7 :7 :? "Enter the number to convert ( 

enter 2 digits)" ;:INPUT INST$:GOSUB 7 
00:GOTO 1200 

AP 1299 REM "6" CONVERT A BINARY # TO DECIMAL 

GN 1300 7 :? :? "Enter the number to convert”; 

:INPUT BIN$:GOSUB 500:GOTO 1300 
AH 1399 REM "7" CONVERT A HEX # TO BINARY 

PJ 14 00 7 :? :? "Enter the number to convert ( 

enter 2 digits)";:INPUT A$:GOSUB 110: 

GOTO 1400 

AJ 1499 REM "8" CONVERT A BINARY # TO HEX 

ED 1500 7 :? : 7 "Enter the number to convert"; 

: INPUT BIN$:GOSUB 50 0: N = P K R:GOSUB 60:G 
OTO 1500 

NA 1599 REM "9" ENTER A SERIES OF POKES IN SUC 
CEEDING MEMORY LOCATIONS 
LL 1600 7 :? s? "Will you be inputting instruc 

tions in (D)ecimal or (H)exadecimal";: 

INPUT MODE$ 
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FA 16 10 


ML 1620 
ML 1625 
EH 1630 

CK 1640 

ND 1650 
PD 1660 

NE 1680 
QE 1700 

00 1720 


DK 1740 
IK 1750 
FF 4999 
CM 5000 


OK 5370 


IP 5400 

EL 5440 

MM 5500 
KI 6000 


? :? "What is the starting address (in 

deci-mal, please)";:INPUT ADDRESS:ADD 
RESS1=ADDRESS 

IF MODES(1,1)="H" THEN HEX=1 
IF MODES(1,1)=»D" THEN HEX=0 
? :? "Now enter the instructions, one 

by 14 SPACES}one. " 

IF HEX THEN TRAP 1700:INPUT INSTS:GOSU 

B 7 00:GOT O 1660 

TRAP 1700:INPUT INST 

POKE ADDRESS,INST:ADDRESS=ADDRESS+1:IF 
HEX THEN 1640 
GOTO 1650 

? :? "Is that all"; : INPUT RESPS: IF RES 

PS(1,1)<>"Y" THEN 1640 

? :? "Do you want to run the program y 

ouC4 SPACES}-have just entered" INPUT 
RESPS:IF RESPS ( 1 , 1 )="Y” THEN 1750 
GOTO MENU 

TRAP MENU: X = USR(ADDRESS 1 ) 

REM OPENING TITLE 

? "(CLEAR}":POKE 752,1:TITLES="FUN WIT 

H PEEK & POKE":BYLINES="presented by": 
NAMES="COMPUTE! BOOKS" 

LN=INT (LEN(TITLES) /2> :FOR Z=1 TO LN:PO 
SITION 17 — Z,7:7 TITLES(LN-Z + 1,LN + Z 

GOSUB CLICK 

NEXT Z:LN=I NT(LEN(BYLINES) /2) :FOR Z=1 
TO LN:POSITION 17-Z,9:7 BYLINES(L 

N-Z+1,LN+Z);GOSUB CLICK 
NEXT Z:LN=I NT(LEN(NAMES) /2) :FOR Z=1 TO 
LN:POSITION 17-Z,11:? " * * " ;NAMES(LN-Z 

+ 1,LN+Z) ; "* *":GOSUB CLICK:NEXT Z 
FOR DLAY=1 TO 500:NEXT DLAY:GOTO MENU 
FOR TIC K = 0 TO 3:POKE 53279,0:NEXT TICK 
:RETURN 
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Two Fast and Simple 
Joystick Routines 

Stephen Levy 


These routines will make it easy for you to incorporate 
responsive joystick control into your programs. 

You finally feel you know enough Atari BASIC to write your 
own game. You have some great ideas for games which use 
joysticks, and you've seen some joystick routines in other pro¬ 
grams. But every time you try to duplicate a method, the rou¬ 
tine seems ridiculously slow. 

Most joystick routines written by beginning programmers 
contain numerous IF-THEN statements. It's those IF-THEN 
statements, as well as the actual placement of the routine, that 
make the joystick response seem unbearably slow. 

Put It Up Front 

Beginners often place joystick routines at high line numbers 
(for instance, 10000) and use statements such as GOSUB 
10000 when the joysticks need to be read. It works, but it 
needlessly slows the joystick routine operation. 

A much better approach is to place the routine at the 
beginning of the program. Joystick routines located near the 
start of any BASIC program will always run faster than the 
same routines placed later in the program. 

The reason for this is simple. In order to carry out a state¬ 
ment like GOSUB 10000, the computer must start at the 
beginning of the program and check every line number in or¬ 
der until it finds line 10000. If you place the same routine at 
line 10 instead of 10000, the computer can find your routine 
sooner, without first checking dozens or hundreds of interven¬ 
ing line numbers. 

The two routines described here are located at low line 
numbers. Thus, the program to which they are appended will 
have little or no effect on the speed at which the routines read 
the sticks. 

Using Arrays 

Program 1 places all the information needed to respond to 
joystick input into two arrays. By placing the information 
in arrays, the program will always have the information in 
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memory before it is needed. That means that the computer 
does not have to figure out what to do each time it reads the 
joystick. 

What has been done is to place a 0, 1, or —1 into each 
element of the arrays. X = STICK(0) will give X a value based 
on the position of the joystick in the first port. If the joystick is 
in the center position, X will be equal to 15. When the arrays 
were created, the fifteenth element for both row and column 
arrays was given a value of zero (COL(15) = 0; ROW(15) = 0). 
Therefore, when COL(15) is added to the current column po¬ 
sition, there will be no change—just as there will be no 
change in the row position (line 20). Similarly, if the joystick 
is pushed up, the row will be decreased by one but the col¬ 
umn will remain the same. Pushing the joystick up will return 


a value of 14 for X. Thus COL(14) = 0 and ROW(14)= — 1. 

Here are the values of each array 

element: 

COL(l) = 0 

ROW(l) = 

0 

COL(2) = 0 

ROW(2) = 

0 

COL(3) = 0 

ROW(3) = 

0 

COL(4) = 0 

ROW(4) = 

0 

COL(5) = 1 

ROW(5) = 

1 

COL(6) = 1 

ROW(6) = - 

-1 

COL(7) = 1 

ROW(7) = 

0 

COL(8) = 0 

ROW(8) = 

0 

COL(9) = -1 

ROW(9) = 

1 

COL(IO) = -1 

ROW(IO) = - 

-1 

COL(ll) = -1 

ROW(ll) = 

0 

COL(12) = 0 

ROW(12) = 

0 

COL(13) = 0 

ROW(13) = 

1 

COL(14) = 0 

ROW(14) = - 

-1 

COL(15) = 0 

ROW(15) = 

0 


To see how it works, take a closer look at the routine. 
Lines 100 and 110 begin the creation of the array by placing 
zeros into elements 1-4, since those numbers are not used for 
joystick reading. Line 120 uses the DATA statements on lines 
140 and 150 to place the proper values into array elements 
5-15. Line 130 sets up the screen and some important values. 

On line 40 and again on line 130 the statement TRAP 40 
appears. TRAP is used here to avoid the need to check bound¬ 
aries of the screen each time the routine loops through. TRAP 
40 will move the program to line 40 each time an error con¬ 
dition is reached. When the PLOT command on line 30 tries 
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to plot to a location which is out-of-bounds, TRAP detects the 
error condition. Without the TRAP the program would stop. 

But in this routine the program will move to line 40 and check 
the values of the column (C) and the row (R) and reset them 
to within the legal limits. 

Once everything is set up, this routine uses only lines 20 
and 30. The routine moves to another line only if you try to 
move the cursor out of bounds. Line 30 erases the old cursor 
by PLOTting in the background color, COLOR 0; then it 
PLOTs the new location with COLOR 1 and saves the location 
in A and B. At the end of line 30 the routine moves back to 
line 20 to read the joystick again. 

GOTO STICK 

Program 2 uses some of the same techniques as Program 1. 

The main difference is that the necessary responses to joystick 
movement are not stored in arrays. Instead, the instructions 
(that is, which way to move the cursor) are placed on the line 
number that is returned by reading the joystick. In other 
words, GOTO STICK(O) will read the joystick and go to the 
line that corresponds to the joystick movement. If the joystick 
is in the center position, the routine goes to line 15 and re¬ 
peats itself. 

In order for this routine to work properly, the correct line 
numbers must be used. Line 14 will move the cursor up; line 
13 will move the cursor down; line 11 will move it left; line 7 
will move it right; and so on. 

Of course, you are not limited to using lines 5-15. The 
statement could be GOTO STICK(0)*10 and require the use of 
lines 50-150. GOSUB STICK(O) is also an acceptable state¬ 
ment. Again, the loop requires the use of only three lines if 
you don't move the cursor out of bounds. 

Program 1. Joystick Reading with Arrays 

For error-free program entry , read "The Automatic Proofreader" in this chapter before 
typing in this program. 

HC 10 GOSUB 100 

OB 2 0 X =ST I CK ( 0 ) s C = C + COL ( X ) : R = R + ROW ( X ) : IF X = 1 5 
THEN 20 

DJ 30 COLOR 0: PLOT A,B:COLOR 1 : PLOT C,R:A=C:B= 
R:GOTO 20 

El 40 TRAP 40: IF C=-l THEN C=0:GOTO P 
LO 50 IF C = 80 THEN C = 79:GOTO P 
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JD 60 IF R = — 1 THEN R = 0:GOTO P 

NN 70 IF R = 40 THEN R = 47:G0T0 P 

NL 100 DIM ROW ( 15) , COL ( 15) 

FN110 FOR X = 1 TO 4 : ROW ( X ) =0: COL ( X ) = 

OA 120 FOR X = 5 TO 15: READ C,R:COL<X) 

R:NEXT X 

PA 130 GRAPHICS 21sP=30:TRAP 40:POKE 
OKE 709,122:RETURN 
HM 140 DATA 1 , 1 , 1 , - 1 , 1,0,0,0 , - 1 , 1 
IN 150 DATA -1,-1,-1,0,0,0,0, 1,0, -1 , 


Program 2. Joystick Reading with GOTO 

NC 2 GOTO 70 

10 5 C = C+ 1 : R = R+ 1 : GOTO P 
JB 6 C = C+ 1 : R = R-1 : GOTO P 
BJ 7 C = C+1 : GOTO P 
JE 9 C = C-1 : R = R+ 1 : GOTO P 
L0 10 C = C-1 : R = R-1 : GOTO P 
EG 1 1 C=C-1 : GOTO P 

BE 13 R = R+1 : GOTO P 
GH 1 4 R = R— 1 : GOTO P 
JO 15 GOTO STICK (0) 


DM 20 

COLOR 0: 

PLOT 

A,B:COLOR 

1 : PLOT 


R:GOTO 1 

5 



JA 30 

TRAP 30: 

IF C = 

80 THEN C 

=79:GOTO 

HD 4 0 

IF C = — 1 

THEN 

C=0:GOTO 

P 

NL 50 

IF R = 4 8 

THEN 

R = 4 7:GOTO 

P 

JD 60 

IF R = — 1 

THEN 

R = 0:GOTO 

P 

FE 70 

P = 20: GRAPHICS 

21:POKE 

712,116: 


6:TRAP 3 

0:GOTO 15 



: N E X T X 
C:ROW(X)= 

7 12, 132: P 

, 0 


C,R:A=C:B= 
P 

POKE 709,1 
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Three Music Editors for 
Your Atari 

David Florance 


Atari's SOUND statement lets you create a multitude of 
sounds. And sound editors like the ones presented here 
make the job easy. You'll be amazed at just what your 
Atari can play. 

Atari BASIC, unlike many other BASICs, includes a statement 
to create sound. It's possible to create music with one to four 
voices—the statement is even easy to use. Its syntax is: 

SOUND voice,pitch,distortion,volume 

where voice is a number from 0 to 3, pitch from 0 to 255, 
distortion from 0 to 15 (10 is a pure tone, 8 is noise), and vol¬ 
ume from 0 to 15. If you're using more than one voice at a 
time, the sum of the volumes should not exceed 16. 

With just that short introduction, let's jump right into 
creating our music masterpieces. 

An Envelope 

Some critics of Atari sound generation claim it's not com¬ 
parable to a sound synthesizer. However, when you look 
closer at the inner workings of Atari sound, you'll quickly find 
that it's much more powerful and flexible than first imagined. 

The first sample program, "Envelope," shows some of the 
sound possibilities of the Atari. When the program is run, 
you're asked to supply the envelope parameters. Experiment 
with different values, but be sure to stay within the stated lim¬ 
its. The figure shows a typical attack/decay/sustain/release 
(ADSR) envelope. 

The attack value controls how fast a sound rises from si¬ 
lence to maximum volume. Decay is the rate at which it de¬ 
clines from the maximum to its sustained volume. Sustain 
indicates how long the sound will be held, and release con¬ 
trols how quickly it fades into silence. 

The technique used in Envelope is simple. By using FOR- 
NEXT loops we can control the envelope of a sound. Since the 
Atari's BASIC loop timing will change depending on program 
length, this technique is not perfect. For our purposes, how¬ 
ever, it works well enough to simulate the ADSR control of a 
true sound synthesizer. 
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Program 2, "Melodies," assists in composing melodies. Pro¬ 
gram 3, "Player 1," plays the songs you create with Program 
2. Be sure to enter and save both Programs 2 and 3 before 
using the former. 

These two programs let you create melodies of up to 48 
notes in length (it's possible to enter more than 48 notes, but 
the DATA will scroll off the screen). For each note, enter a 
pitch value from those displayed on the screen, and a duration 
value (0 to 255). The Atari then plays the note, though not 
with the specified duration. When all the notes are entered, 
type 0 for the pitch. You'll now hear the composition. If you 
don't like it, you can easily edit the note(s). 

After your melody is finished, the program lets you save 
the song data if desired. If you press Y when prompted, the 
Atari prints your note values on the screen, in numbered 
DATA lines. At this point you can either write the values 
down, or enter NEW and load Program 3. If you do the latter, 
be careful not to disturb the DATA lines, which will be added 
to Program 3. When the Atari has finished loading, cursor up 
and press RETURN at each numbered line. The song data is 
now part of the program. Run the program to replay the song, 
or save it (with a new name) to preserve your song for 
posterity. 
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Table 1. Pitch Values 


c 

243 

121 

60 

F# 

173 

85 

42 

c# 

230 

114 

57 

G 

162 

81 

40 

D 

217 

108 

53 

G# 

153 

76 

37 

D# 

204 

102 

50 

A 

144 

72 

35 

E 

193 

96 

47 

A# 

136 

68 

33 

F 

182 

91 

45 

B 

128 

64 

31 


Note: Any number from 0 to 255 is an acceptable pitch 
value. 

Creating Chords 

Creating chords is very similar to creating notes. Type in and 
save Program 4, "Chords," and Program 5, "Player 3." These 
programs let you control three voices instead of one. Just as 
before, you enter pitch and duration values for each note. 
Durations, however, do not have the same values as before. 
The chord editor uses eight duration values (see Table 2). The 
first note will be assigned to voice 1, the second to voice 2, 
and so on. The Atari will play each note when you enter it, 
but without the specified duration. 

When all the notes are entered, enter a pitch of 0 to re¬ 
play the chord(s). Next, you can save the chord data as a file. 
You'll need to specify the device and filename for disk (no 
quote marks are needed). 

To play your chords or preserve the data, run Program 5, 
Player 3. You'll be prompted for the filename of your chord(s). 
Type in the filename, and when the READY prompt appears, 
delete lines 1-4, which append the data to the player program, 
and enter RUN again. There are your chords, just as you en¬ 
tered them, again ready to be saved as a separate program. 

Table 2. Duration Values 


1 = quarter note (1 beat) 

2 = half note (2 beats) 

3 = dotted half note (3 beats) 

4 = whole note (4 beats) 

5 = quarter & whole (5 beats) 

6 = half & whole (6 beats) 

7 = dotted half & whole (7 beats) 

8 = two whole notes (8 beats) 
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All Four Voices 

The chord editor used only three voices. "Song Editor" and 
"Player 4" allow you to write songs using any combination of 
one, two, three, or four voices. Now you can write complex 
songs, controlling the pitch and duration of each note, and 
inserting rests wherever desired. 

The program will prompt you to enter the number of the 
voice you want to use, then the pitch and duration values for 
each note. To switch voices, type in 1 for the pitch. Enter a 
pitch of 0 for rests, and a pitch of 2 to hear your work. When 
finished, the song you've composed is written to disk or cas¬ 
sette, and can be heard by using the Player 4 program. Use 
the same procedure as you did with Player 3. Try adding a 
new line to Player 4, 9999 RUN, for continuous music. 

Program 1. Envelope 

For error-free program entry, read "The Automatic Proofreader" in this chapter before 
typing in this program. 


NO 1 0 DIM A $ ( 5 0 ) , P (10) , F'$ ( 10) , R$ ( 10) , C H < i 0 ) . ER 
$ (38) : X=2 0: Y =1 :ER$=" C 1 9 SPACES}" 

AL 20 CH(1)=3:CH(2) =255 : CH (3) = 14 : CH <4> =15: CH (5 
>=32767:CH<6)=14:CH(7>=CH<4):CH<8)=CH<4> 
:CH (9) = CH(2) :CH( 10) = 1 
HJ 30 FOR T = 1 TO 10: P (T) =0: NEXT T 
MM 50 PRINT CHR$(125) 
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ND ASC(P$)>57 THEN POSITION X , Y :PRINT E 

R$:GOTO 130 
KO 140 Y = Y + 2 : NEXT T 
DA 190 IF P (6 > > 0 THEN 300 

ON 200 SOUND P ( 1 ) , P < 2 ) , F* ( 3 ) „ P ( 4 ) 

G3 210 IF P(10>=1 THEN ON P'l>+1 GOSIJB 220,230 

SJ 2 1 5 GOTO 260 

KM 220 POKE 53768, 132: RETURN 

HO 230 POKE 53768,34: RETURN 

LP 260 FOR Y = 1 TO P<5) 

DJ 269 NEXT Y 

EP 270 SOUND P ( 1 ) , P < 2 ) , P < 3 ) , 0 

LE 280 GOSUB 500: GOTO 200 
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EK 300 REM SUBF'RG 

NP 305 IF P ( 6 ) =0 THEN P(6)=l 

FO 310 FOR Y= 1 TO 15 STEP F'(6) 

HE 320 SOUND P < 1 ) ? P ( 2 ) , P < 3 ) , Y 
CO 330 NEXT Y 

IE 332 SOUND P ( 1 ) , P <2) , P (3) , 15 

IK 335 FOR T = 1 TO P(5) :NEXT T 

KD 340 FOR T = 1 5 TO P(8) STEP -IsSOUND P<1>,F'<2 
) , F* < 3 ) , T : FOR F=1 TO P(7)sNEXT F 
CP 345 NEXT T 

AD 350 FOR T = P ( 8 ) TO 0 STEP -1: SOUND P ( 1 ) , P ( 2 ) 
,P(3),T:FOR D=15 TO P(9) STEP -IsNEXT D 
:NE X T T:SOUND P < 1 ) , P < 2 ) , P ( 3 ) , 0 

KP 400 GOSUB 500: GOTO 300 

FL 500 REM PROMPT 

NC 505 PRINT " AGAIN (Y/N) " ; : TRAP 40000: INPUT R $ 
BC 507 IF R$ = CHR$ (89) THEN POSITION 2,21:PRINT 
ER$:POSITION 2,21:RETURN 
DM 510 PRINT ” MORE < Y/N) M ;: INPUT R $ 

IA 520 IF R$ = CHR$ (89) THEN CLR : GOTO 10 
GP 530 END 

IH 600 IF P$ = CHR$ ( 155) THEN 140 
6F 610 GOTO 140 

IS 1000 DATA VOICE(0-3),PITCH<0 2 5 5) , DISTORTIO 
N(0-14),VOLUME(0-15) 

AD 1010 DATA DURATION(0-327 67) , ATTACK (0-14) ,DE 
CAY (0—15) , SUSTAIN (0—15) , RELEASE (0-15) , 
FILTER <0=OFF/l=ON) 


Program 2. Melodies 

NP 10 C0UNTER=1535: POKE 709, 132: POKE 712, 132:P 
OKE 710,132 

NH 1 5 DIM A ( 1 2 ) , B ( 1 2 ) , C ( 1 2 ) ,D<7) , R ( 1 0 ) , P$ ( 10) , 
ER$(20),G$(10) 

JO 20 ER$=" C18 SPACES} " 

GI 100 REM OCTAVE 1 
LB 105 RESTORE 11500 

EP110 FOR X = 1 TO 12: READ A : A ( X ) = A : NE X T X 

GK 200 REM OCTAVE 2 
LD 205 RESTORE 11510 

FD210 FOR X = 1 TO 12: READ B : B ( X ) = B : NE X T X 

GM 300 REM OCTAVE 3 
LF 305 RESTORE 11520 

FH310 FOR X = 1 TO 12: READ C: C ( X ) =C: NEXT X 

CC 400 REM NOTE NAMES 
LH 405 RESTORE 11530 

CP 4 1 0 FOR X = 1 TO 7 : READ D : D ( X ) = D : NE X T X 
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AH 500 
CD 510 
LL 512 
Cl 515 
DE 51 7 
JH 520 
BP 530 
CK 532 
FH 533 
CK 535 
DG 537 
BP 540 

DB 550 
KE 560 

CL 600 
KH 610 

KN 615 

HK 617 
IL 620 

GC 625 
B6 1000 
HG 1010 
OC 1020 
BJ 1025 
AG 1030 
JF 1040 
IN 2000 
FL 2010 
KE 2020 
CO 3000 
JH 3010 

HC 3020 
DE 3030 
BI 3040 
DH 5000 
PL 5010 

BA 5020 
AH 5025 
DH 5030 
BI 5035 
AH 5040 
NG 6000 

JF 6010 
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PRINT CHR$(125) 

FOR X =1 TO 7 s PR IN T CHR$(D(X> ) 

IF X = 3 THEN 517 

PRINT 

NEXT X 

POSITION 2,2 

FOR X =1 TO 7 

IF X = 3 OR X = 7 THEN 535 

PRINT CHR$(D(X));CHR$(35) 

PRINT 
NEXT X 

Y=1:FOR X =1 TO 12:P0SITI0N 9,Y:PRINT A< 
X),B(X),C(X):Y = Y + 1 
NEXT X 

PRINT :FOR X=1 TO 29:PRINT CHR*(20);:NE 
XT X 

POKE 709,190 

TRAP 610:POSITION 2,16:PRINT ER$:POSITI 
ON 2,16:PR INT "PITCH INPUT P 

IF P=0 THEN GOSUB 3000:GOSUB 5000:GOTO 
10 

IF P<0 OR P >255 THEN 610 

TRAP 620:POSITION 2,16:PRINT ER$:POSITI 
ON 2,16:PRINT "DURATION INPUT D 

IF D< 0 OR D >255 THEN 620 
SOUND 1,P,10,15 
FOR X =1 TO 300:NE X T X 
SOUND 1 , P,10,0 
IF E=1 THEN RETURN 
GOSUB 2000 
GOTO 610 
POKE COUNTER,P 

POKE COUNTER+128,D:COUNTER=COUNTER+1 
RETURN 

FOR X =1535 TO COUNTER-1 
SOUND 1,PEEK < X) , 10, 15 

FOR T=1 TO PEEK(X+128):NEXT T 
NEXT X:SOUND 1,PEEK(X),10,0 
IF E=1 THEN RETURN 
PRINT C HR $ <125) 

PRINT "DO YOU LIKE THE SONG<Y/N>";:INP 
UT G$ 

IF G$="Y" THEN GOSUB 6000 
IF G*="N" THEN GOSUB 8000 
PRINT "MORE";:INPUT G$ 

IF G*=”Y" THEN GOSUB 8000 
GOSUB 3000 

PRINT "WOULD YOU LIKE THE DATA(Y/N)";: 
INPUT G$ 

IF G*=”Y" THEN 6500 
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HK 6015 
IJ 6020 
LC 6500 
HI 6502 
DL 6505 
NH 6510 
FH 6515 

BO 6520 
AB 6530 
KC 6550 
NC 7000 

OE 8000 

DL 8010 


BB 8020 
EC 8030 

IE 8040 
LB 8045 
PN 8050 
KJ 8060 
BE 8070 

LA 8080 
C6 1 1500 

KJ 11510 

6H 1 1520 

AH 1 1530 


GOTO 5000 

PRINT :PRINT LN+10;" DATA 256”:END 
PRINT CHR$ (125) :LN=10000:SC=10 
PRINT LN;" DATA ”; 

FOR X =1535 TO COUNTER-1 
PRINT PEEK(X);",";PEEK(X+128); 

IF COUNTER—1 >1535+SC AND XM535 + SC THE 
N GOSUB 7 000:GOTO 6550 
IF X=COUNTER—1 THEN 6550 
PRINT n ,”; 

NEXT X:GOTO 6020 

LN = LN+10: PRINT SPRINT SPRINT LN; ” DATA 
";:SC=SC+12:RETURN 

PRINT CHR$<125):FOR X=1535 TO COUNTER- 
1 

PRINT "NOTE #"; X-1534; " ";PEEK(X) ; " 

C3 SPACES}DURATION #";X-1534;" ";PEEK< 

X 1 28 ) 

NEXT X 

PRINT SPRINT SPRINT "PRESS E TO HEAR S 
ONG AGAIN ";:INPUT G$ 

IF GS="A" THEN 8050 
RETURN 

E=l:GOSUB 3000 

PRINT "WHICH NOTE TO EDIT";:INPUT NE 
E=1:GOSUB 400:E=0:POKE 1535+NE-l,P:POK 
E 1535+NE-1+128,D 
RETURN 

DATA 243,230,217,204,193,182,173,162, 
153,144,136,128 

DATA 121,114,108,102,96,91,85,81,76,7 
2,68,64 

DATA 60,57,53,50,47,45,42,40,37,35,33 
,31,29 

DATA 67,68,69,70,71,65,66 


Program 3. Player 1 

HC 1 0 DIM A (128) , B ( 128) sPRINT CHR$ (125) : POKE 7 
09,192:POKE 710,45:POKE 712,45 

CH 20 X = 0 
KH 30 X = X + 1 

JO 40 READ A: IF A = 256 THEN GOTO 100 

AN 45 A ( X ) = A: READ B:B(X)=B 

AB 50 GOTO 30 

IN 100 FOR N= 1 TO X — 1 

EB110 SOUND 1,A(N) , 10,5 

HD 120 FOR DEL A Y= 1 TO B(N) : NEXT DELAY 
CB 130 NEXT N 
KI 10000 DATA 256 
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Program 4. Chords 

JC 1 5 DIM A ( 1 1 2 ) , B ( 1 1 2 ) , C ( 1 1 2 ) , D ( 1 12) ? R ( 1 2 0) , P 
$(10) ,ER$ (20) ,G$ (20) ,FN$ (12) 

AD 17 DIM SOP (112) ,ALT <1 12) , TEN ( 1 12) 

0120 ER$=" C18 SPACES} " : NU = 0 

CK 30 POKE 7 10,85: POKE 712,85: POKE 709,132 
PC 40 FOR X = 1 TO 1 1 2 : SOP ( X ) =0 : ALT ( X ) =0 : TEN ( X ) = 
0 

GI 100 REM OCTAVE 1 


LB 105 

RESTORE 

1 1 500 


EP 1 1 0 

FOR X =1 

TO 12:READ A: A ( X) 

= A:NEXT X 

GK 200 

REM OCTAVE 2 


LD 205 

RESTORE 

115 10 


FD 210 

FOR X =1 

TO 12:READ B:B(X) 

= B: NEXT X 

GH 300 

REM OCTAVE 3 


LF 305 

RESTORE 

1 1 520 


FH 3 1 0 

FOR X =1 

TO 12:READ C: C ( X) 

= C:NEXT X 

CC 400 

REM NOTE 

NAMES 


LH 405 

RESTORE 

1 1 530 


CP 4 1 0 

FOR X =1 

TO 7:READ D : D (X) = 

D:NEXT X 


AH 500 PRINT CHR$ (125) 

CD 5 1 0 FOR X = 1 TO 7:PRINT CHR$ (D(X) ) 

LL512 IF X = 3 THEN 517 

Cl 515 PRINT 

DE 5 1 7 NEXT X 

JH 520 POS I T I ON 2,2 

BP 530 FOR X = 1 TO 7 

CK 532 IF X = 3 OR X = 7 THEN 535 

FH 533 PRINT CHR$ ( D ( X ) ) ; CHR$ ( 35 ) 

CK 535 PRINT 

DG 537 NEXT X 

BP 540 Y= 1 : FOR X=1 TO 12:P0SITI0N 9, Y:PRINT A( 

X) , B ( X ) , C ( X ) : Y = Y + 1 

DB 550 NEXT X 

KE 560 PRINT : FOR X = 1 TO 29:PRINT CHR$(20);:NE 
XT X 

DB 570 POKE 7 0 9, 190 

LN 600 FOR V = 1 TO 3:P0SITI0N 2,22: PRINT "VOICE 

# " ; V 

JP610 POSITION 2,16:PRINT ER$:POSITION 2,16:P 

RINT “PITCH :INPUT P 
JC615 IF P = 0 THEN GOSUB 3000:GOTO 5000 

HK 6 17 IF P<0 OR P > 2 5 5 THEN 610 

IC 620 POSITION 2, 16: PRINT ER$:POSITION 2, 16:P 

RINT "DURATION INPUT D 

PP 625 IF D< 1 OR D >8 THEN 620 

BG 1000 SOUND 1 , P , 10, 15 

HG 1010 FOR X=1 TO 300: NEXT X 
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OC 1020 SOUND 1,P,10,0 

NO 1030 ON V GOSUB 2000,6000,7 000 

HO 1040 NEXT V: NU = NU + 3: GOTO 600 

EH 2000 FOR 1 = 1 TO D 

JJ2010 J 1=J 1 + 1 : SOP ( J 1 ) = P: NEXT I 

KE 2020 RETURN 

LG 3000 FOR X = 1 TO NU 

DC 30 10 SOUND 0, SDP ( X ) , 10,5 

CD 3020 SOUND 1 , ALT ( X ) , 1 0,5 

CP 3025 SOUND 2, TEN (X) , 10,5 

HG 3027 FOR T=1 TO 100--NEXT T 

CN 3030 NEXT X : SOUND 0 , SOP ( X >, 1 0,0 : SOUND 1 , ALT 
(X), 10,0: SOUND 2, TEN(X) , 10,0 
KH 3040 RETURN 

NA 5000 PRINT CHR$ < 125) : GOSUB 9000:END 

EL 6000 FOR 1 = 1 TO D 

PA 6 0 10 G = G-+1 : ALT (G) =P: NEXT I 

KI 6020 RETURN 

EM 7000 FOR 1 = 1 TO D 

PE 7 010 F = F+1 : TEN ( F > = P: NEXT I 

KJ 7020 RETURN 

NJ 9000 PRINT "WOULD YOU LIKE THE D AT A ( Y / N ) ” ; : 
INPUT G* 

JM 9 0 10 IF G$="Y" THEN 9015 
KD 9012 END 

BG 90 15 PRINT "REMEMBER TO DESIGNATE DEVICE(E. 

G. -D: -" FOR DISK) ":PRINT "AS PART OF Y 
OUR FILENAME-" 

OB 9 0 17 PRINT "FILENAME"INPUT FN$:GOTO 9500 
AO 9020 PRINT #1 ; CHR$ ( 155) ; LN+10; ” DATA 256,25 
6,256":END 

IM 9 500 PRINT CHR$(125) :LN=10000: SC = 8 
PJ 950 1 OPEN #1,8,0, FN$ 

FK 9502 PRINT #1;LN; " DATA 
MG 9505 FOR X=1 TO NU 

KH 95 10 PRINT # 1 ; SOP < X ) ; " , " ; ALT ( X ) ; " , " ; TEN < X ) 

FF 95 15 IF NU>1 +SC AND X>1+SC THEN GOSUB 9600 
GOTO 9550 

JJ 9520 IF X = NU THEN 9550 
JI 9530 PRINT # 1 ; " , " ; 

KI 9550 NEXT X : GOTO 9020 
EM 9600 LN = LN+10: PRINT #1; :PRINT #1:PRINT #1;L 
N; " DATA "; :SC = SC+12:RETURN 
CG 1 1500 DATA 24 3,2 30,217,204, 193, 1S2, 173, 162, 

153,144,136,128 

KJ 11510 DATA 12 1,114,108,102,96,91,85,81,76,7 
2,68,64 

GH 11520 DATA 6 0,57,53,50,47,45,42,40,37,35,33 

,31,29 

AM 11530 DATA 67,68,69,70,71,65,66 
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Program 5. Player 3 

IF 1 DIM FN$ ( 12) : PRINT CHR$ ( 12 5) : POKE 709,190: 

POKE 712,180:POKE 710,180 
CP 2 PRINT "REMEMBER TO DESIGNATE DEVICE (E.G. 

? D: * FOR DISK":PRINT "WHEN ENTERING FILE 
NAME." 

AC 3 PRINT "FILENAME" INPUT FN$ 

6K 4 ENTER FN$ 

BN 10 DIM A ( 128) , B ( 128) , C ( 128) 

CH 20 X = 0 
KM 30 X = X + 1 

HL 40 READ A,B,C:IF A=256 THEN GOTO 100 
EL 45 A(X)=A:B(X)=B:C(X)=C 
AB 50 GOTO 30 
IN 100 FOR N= 1 TO X-l 

CF 110 SOUND 0 9 A ( N ) , 10,5: SOUND 1 , B (N) , 10,5s SOU 
ND 2,C(N),10,5 

HB 120 FOR DELAY= 1 TO 100:NEXT DELAY 
CB 130 NEXT N 


Program 6. Song Editor 

CF 1 0 DIM A ( 1 2) , B ( 1 2 ) , C ( 12) , D ( 7 ) , R ( 10) , P$ ( 1 0) , 
ER$(40),FN$(14) 

ON 15 POKE 7 10,23: POKE 7 12,23: POKE 709,23 
JO 20 ER$ = " C35 SPACES! " 

AB 30 DIM SOP (128) , ALT ( 128) ,TEN(128) 5 BAS ( 128) 

PK 4 0 DIM COUNTER (128) , G ( 4 ) ,W(100) ,VL(128) , FL ( 
128),I(128),R$(128) 

AP 4 5 C0 = 0: C1=0: C2 = 0: C3 = 0: LN= 10000: SC= 1 2 

PI 47 COUNTER = 0 

EA 50 FOR 1=0 TO 128 

MB 52 SOP ( I ) =0: ALT ( I ) =0: TEN ( I ) =0: BAS ( I ) =0 

BB 53 VL ( I ) =0 

PC 55 NEXT I 

61 100 REM OCTAVE 1 

LB 105 RESTORE 11500 

EP110 FOR X = 1 TO 12: READ A : A ( X ) = A : NE X T X 
GK 200 REM OCTAVE 2 

LD 205 RESTORE 11510 

FD210 FOR X = 1 TO 12: READ B : B ( X ) = B : NE X T X 

GM 30 0 REM OCTAVE 3 
LF 305 RESTORE 11520 

FH310 FOR X = 1 TO 12: READ C : C ( X ) = C : N E X T X 

CC 4 0 0 REM NOTE NAMES 
LH 405 RESTORE 11530 

CP 4 1 0 FOR X = 1 TO 7 : READ D : D ( X ) = D : NE X T X 
AM 500 PRINT CHR$ ( 125) 
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CD 510 FOR X = 1 TO 7:PRINT CHR$(D(X) ) 

LL512 IF X =3 THEN 517 

Cl 515 PRINT 

DE 517 NEXT X 

JH520 POSITION 2,2 

BP 530 FOR X = 1 TO 7 

CK 532 IF X =3 OR X = 7 THEN 535 

FH 533 PRINT CHR$ (D ( X ) ) ; CHR$ (35) 

CK 535 PRINT 
DG 537 NEXT X 

BP 540 Y = 1 : FOR X=1 TO 12:POSITION 9,Y:PRINT A< 

X > 5 B < X ) , C < X > :Y = Y+ 1 

DB 550 NEXT X 

EA 555 IF F 1= 1 THEN F 1 =0 : RETURN 

KE 560 PRINT s FOR X = 1 TO 29:PRINT CHR$(20) ; :NE 

XT X 

DB 570 POKE 709,190 

KJ 600 TRAP 600: POSITION 2, 16:PRINT ER$:POSITI 

ON 2,16:PRINT "VOICE";:INPUT V 
BJ 605 IF V<0 OR V > 3 THEN 600 

OE 607 POSITION 2,20:PRINT "VOICE " ; V 

GD 60S X = 0 

KH 6 10 TRAP 610:POSITION 2,16:PRINT ER$:POSITI 
ON 2,16:PRINT "PITCH :INPUT P 
HI 615 IF P<0 OR P > 2 5 5 THEN 610 

DF617 IF P=1 THEN X = 1 : G (V) =COUNTER: COUNTER = 0: 

GOTO 600 

0C618 IF P = 2 THEN 6000 

IL 620 TRAP 620: POSITION 2,16:PRINT ER$:POSITI 

ON 2,16:PRINT "DURATION";:INPUT D 
PL 630 IF D < 1 OR D > 8 THEN 620 

PH 640 ON V+l GOSUB 1000,2000,3000,4000 

GL 650 GOTO 610 
AG 1000 GOSUB 5000 
FH 1010 FOR Y = 1 TO D 

FK 10 20 SOP (X) = P: X = X + 1 : NEXT Y : RETURN 
AH 2000 GOSUB 5000 
FI 2010 FOR Y=1 TO D 

EK 20 2 0 ALT ( X ) = P : X=X + 1 : NEXT Y : RETURN 
AI 3000 GOSUB 5000 
FJ 3010 FOR Y=1 TO D 

FC 3 0 30 TEN<X>=P:X=X+1:NEXT Y: RETURN 
AJ 4000 GOSUB 5000 
FK 4010 FOR Y=1 TO D 

EC 4030 BAS(X)=P:X = X + 1:NEXT Y : RETURN 
JE 5000 SOUND V, P, 10,8: FOR T=1 TO 200:NEXT T:S 
OUND V,0,10,0:COUNTER=COUNTER+D:RETURN 
AN 6000 GOSUB 7000 

IL 6003 TRAP 40000:GOSUB 8000:GOSUB 8900:GOSUB 
8800 
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CO 6005 
CI 6010 
BJ 6020 
CB 6030 
BG 6040 
El 6050 
FH 6060 
LF 6070 

NB 6090 
PC 7000 
CD 70 10 
CI 7020 
CN 7030 
CM 7040 
CH 7050 
PD 7060 
KO 7070 
HJ 8000 
DM 80 1 0 
EP 8020 

EJ 8030 

FE 8040 
CO 8050 
PM 8055 
OP 8057 
PJ 8059 

OD 8061 
FD 8065 
HP 8067 

AL 8069 
LG 8077 
ME 8100 
MG 8200 
MI 8300 
UK 8400 
BK 8800 

KK 88 10 
OE 8820 


LC 8830 
NG 8840 
LB 8900 

HA 8905 


TO COUNTER 
, SOP (L) , 10,4 
, ALT (L) 

, TEN(L) 

, BAS (L) 

TO 1 




, 10,4 
, 10,4 
,14,4 
NEXT T 


0,0,0:SOUND 

3 ’ 0 , 0,0 


FOR L = 0 
SOUND 0 
SOUND 1 
SOUND 2 
SOUND 3 
FOR T=1 
NEXT L 
SOUND 0 
0,0:SOUND 3, 

GOTO 9000 
REM TEST FOR 
IF G(0) >G ( 1 ) 

IF G <1 ) >G <2) 

IF G <2> >G(3) 

IF G < 3) >G <1) 

IF G(0)>G(1) 

COUNTER=G(1) 

RETURN 

PRINT CHR$(125):FL=1 

FOR 1=0 TO 3 

PRINT "WOULD YOU LIKE 


1,0,0,0:SOUND 


0 , 


COUNTER 

THEN G(1)=G(0) 
THEN G(2)=G(1) 
THEN G(3)=G(2) 
THEN G(1)=G(3) 
THEN G(1)=G(0) 


TO HEAR VOICE 


ii 


I ; " < Y / N > " ; 
IF R$="Y" 
8300,8400 
NEXT I 
FOR 1=1 
IF C0=1 
IF Cl=l 
IF C 2 =1 


:INPUT R$ 
THEN ON 1-4-1 


GOSUB 8100,8200, 


TO COUNTER 
THEN SOUND 0,SOP(I) 
THEN SOUND 1,ALT<I) 
THEN SOUND 2,TEN(I) 


10,10 
10 , 10 

10 , 10 


IF C3=1 THEN SOUND 3,BAS(I) , 10, 10 

FOR T=1 TO 25:NEXT T 

NEXT I:SOUND 0,0,0,0:SOUND 1,0,0,0:SOU 

ND 2,0,0,0:SOUND 3,0,0,0 

C 0 = 0:C1=0:C2 = 0:C3 = 0 

RETURN 

C0=1:RETURN 

Cl=l:RETURN 

C2=1:RETURN 

C3=1:RETURN 

PRINT "READY TO HEAR IT ALL<Y/N>";:INP 
UT R$ 

IF R$="Y" THEN 6005 

PRINT "WOULD YOU LIKE TO EDIT<Y/N>";:I 
NPUT R$ 

IF R$=-'Y" THEN 9800 

GOTO 9000 

PRINT "ANOTHER COMB INAT ION<Y/N>"; : I NPU 
T R$ 

IF R$="Y" THEN GOSUB 8000:GOTO 8900 
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LF 89 10 
AJ 9000 

KI 9002 

m 9005 

OH 9 0 15 

OB 9017 
NH 9020 

IH 9500 
PJ 9501 
FK 9502 
ED 9505 
AH 95 10 

NC 9 5 15 

BG 9520 
JI 9530 
KI 9550 
EH 9600 

El 9800 
GP 9805 

CH 98 1 0 

EC 9820 
OH 9822 
HC 9824 
HJ 9826 
HC 9828 

LP 9830 

KD 9832 
GK 9834 

HF 9836 


LH 9837 
NL 9838 
EE 9840 
NI 9842 
HE 984 4 
HL 9846 
HE 9848 


IF R$="N" THEN RETURN 

PRINT CHR$(125):POSITION 2,16:PRINT " W 
□ ULD YOU LIKE TO S A V E < Y / N > " ; : INPUT R$ 
IF R$="Y" THEN 9015 
GOTO 8820 

PRINT CHR$(125):PRINT "REMEMBER TO DES 
IGNATE DEVICE <e. g . ? D: FILE*' ) " 

PRINT "FILENAME";:INPUT FN*:GOTO 9500 
PRINT #1;CHR$(155);LN+10;" DATA 256,25 
6,256,256":END 

PRINT CHR$(125):LN=10000sSC=8 
OPEN #1,8,0,FN$ 

PRINT # 1 ; LN; " DATA " ; 

FOR X =1 TO COUNTER 

PRINT #1 ;SOP (X) ; " , " ; ALT (X) ; " , "; TEN < X ) ; 
" , " ;BAS< X > ; 

IF COUNTER>1+ S C AND X>1+SC THEN GOSUB 

9600:GOTO 9550 

IF X = COUNTER THEN 9550 

PRINT #1;","; 

NEXT X:G O T O 9020 

LN=LN+10;PRINT #1;:PRINT #1:PRINT #1;L 
N;" DATA SC=SC+12:RETURN 

PRINT CHR$(125) 

POSITION 2,18;PRINT "WHICH VOICE TO ED 
IT";:INPUT EV 

PRINT CHR$(125):ON EV+1 GOTO 9820,9840 

,9860,9880 

FOR X = 0 TO COUNTER 

PRINT "NOTE # " ; X ; " ";SOP ( X) 

IF X >20 THEN POSITION 12, 1 
IF X >40 THEN POSITION 24 ,1 
NEXT X 

FOR X =1 TO COUNTER: SOUND 0,S0P(X) , 10,4 
: FOR T =1 TO 100:NEXT T: NEXT X 
SOUND 0,0,0,0 

TRAP 9834:PRINT "WHICH NOTE TO EDIT";: 
INPUT EN:F1=1:GOSUB 500 

POSITION 2, 18:PRINT "NEW NOTE #";EN; : I 
NPUT NN:SOP(EN)=NN:PRINT "MORE";:INPUT 
R* 

IF R$="Y" THEN 9820 
GOTO 6000 

FOR X =0 TO COUNTER 

PRINT "NOTE #" ; X; ” "; ALT(X) 

IF X >20 THEN POSITION 12,1 
IF X >40 THEN POSITION 24,1 
NEXT X 
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JC 9850 

KG 9852 
GO 9854 

GG 9856 


MA 9857 
NN 9858 
EG 9860 
OA 9862 
MG 9864 
MN 9866 
HG 9868 
Jt 9870 

KJ 9872 
HC 9874 

GO 9876 


ME 9877 
NP 9878 
El 9880 
m 9882 
MI 9384 
MP 9886 
HI 9888 
IN 9890 

KM 9892 
HG 9894 

FP 9896 


MI 9897 
CG 1 1500 

KJ 11510 

GH 1 1 520 

AM 1 1 530 


FOR X =1 TO COUNTER:SOUND 1 ,ALT (X) , 10,4 
:FOR T =1 TO 100:NEXT T: NEXT X 
SOUND 1,0,0,0 

TRAP 9854:PR I NT "WHICH NOTE TO EDIT";: 
INPUT EN:F1=1:GOSUB 500 

POSITION 2, 18:PRINT "NEW NOTE #";EN;:I 
NPUT NN: ALT (EN)=NN:PRINT "MORE"; : INPUT 
R* 

IF R $ ="Y" THEN 9840 
GOTO 6000 

FOR X =0 TO COUNTER 

PRINT “NOTE #";X;" ";TEN(X) 

IF X >20 THEN POSITION 12,1 
IF X >40 THEN POSITION 24,1 
NEXT X 

FOR X =1 TO COUNTER: SOUND 2,TEN<X>,10,4 
: FOR T =1 TO 100:NEXT T: NEXT X 
SOUND 2,0,0,0 

TRAP 9874:PRINT "WHICH NOTE TO EDIT";: 
INPUT EN:Fl=l:GOSUB 500 

POSITION 2, 18:PR I NT "NEW NOTE #" ; EN; : I 
NPUT NN:TEN(EN)=NN:PRINT "MORE";:INPUT 
R$ 

IF R $ = " Y " THEN 9860 
GOTO 6000 

FOR X =0 TO COUNTER 

PRINT "NOTE #";X;" ";BAS(X) 

IF X > 20 THEN POSITION 12,1 
IF X >4 0 THEN POSITION 24,1 
NEXT X 

FOR X =1 TO COUNTER:SOUND 3,BAS(X) , 10,4 
:F OR T=1 TO 100:NEXT T: NEXT X 
SOUND 3,0,0,0 

TRAP 9894:PRINT "WHICH NOTE TO EDIT";: 
INPUT EN:F1=1:GOSUB 500 

POSITION 2,18:PRINT "NEW NOTE #";EN;:I 
NPUT NN:BAS(EN)=NN:PRINT "MORE";:INPUT 
R $ 

IF R $ ="Y" THEN 9880 
DATA 243,230,217,204,193,182,173,162, 
153,144,136,128 

DATA 121,114,108,102,96,91,85,81,76,7 
2,68., 64 

DATA 6 0,5 7,5 3,50,4 7,4 5,4 2,4 0,3 7,35., 33 
,31,29 

DATA 67,68,69,70,71,65,66 
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Program 7. Player 4 

IC 1 DIM FN$ (14): PR I NT CHR$(125) : POKE 709,160: 

POKE 712,170:POKE 710,170 
CP 2 PRINT "REMEMBER TO DESIGNATE DEVICE <E.G. 

? D: FOR DISK" : PRINT "WHEN ENTERING FILE 

NAME-" 

AC 3 PRINT "FILENAME" ;: INPUT FN$ 

GK 4 ENTER FN$ 

HJ 10 DIM A ( 128) , B < 128) , C < 128) , D ( 128) 

CH 20 X = 0 
KH 30 X = X + 1 

OL 40 READ A,B,C,D: IF A = 256 THEN GOTO 100 
MD 4 5 A(X)=A:B(X)=B:C(X)=C:D(X)=D 
AB 50 GOTO 30 
IN 100 FOR N= 1 TO X-l 

BE 1 1 0 SOUND 0 , A < N > , 10,4: SOUND 1 , B < N ) , 1 0,4 : SOU 
ND 2,C(N),10,4:SOUND 3,D(N),10,4 
HD 120 FOR DEL A Y= 1 TO 100:NEXT DELAY 
CB 130 NEXT N 
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Exploring Atari Variables 

Bob Powell 


For many programmers, variables are not too exciting. But 
you , ll be able to create much more effective programs if 
you understand how they are stored and how they can be 
manipulated. 

There are three types of variables that can be used by Atari 
programmers. 

Scalars. Common numerical variables, represented by a 
variable name such as X, Y, PAY, HIT, etc., are called scalars. 
The value of a scalar variable is assigned within your pro¬ 
gram (for example, by X=7, INPUT Y, PAY = A + B, or 
HIT = X+15*Y). Each scalar value occupies six bytes of 
memory. 

Arrays. Arrays are sets of numbers represented by a vari¬ 
able name followed by the element number in the set (for ex¬ 
ample, A(3), SCORE(20), or INCOME(10,12)). Before using an 
array, you must dimension it with the maximum size expected 
(for example, DIM SCORE(22)). That sets aside six bytes of 
memory for each array element; in other words, DIM 
SCORE(22) reserves 22*6 or 132 bytes. 

Strings. String variables are extremely versatile, and you 
will find many uses for them. Strings are represented by a 
variable name followed by the dollar sign (for example, A$, 
VTAB$, or BLANKS) and must also be dimensioned so the 
computer can reserve memory for the string. Each character in 
a string variable is stored as a one-byte ATASCII code (rang¬ 
ing from 0 to 255), so entering DIM A$(35) will reserve 35 
bytes of memory for A$. 

The variable name table holds a list of all variable names 
that have been entered. They are stored as ATASCII code 
numbers in the same sequence that they were encountered in 
your program. Each variable name also identifies the type of 
variable. Scalars are stored with 128 added to the ATASCII 
value of the last byte in the name. For example, the name of 
the variable HIT is described in three bytes with values 72, 73, 
and 212 (212 = 84 + 128). Arrays are stored with a left paren¬ 
thesis with 128 added (40 + 128, or 168) as the last byte in the 
name. Strings are stored with the dollar sign plus 128 
(36 + 128 or 164) as the last byte. 

The memory address for the start of the variable name 
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table can be determined with PEEKs into 130 (LO) and 131 
(HI) or with NTAB = PEEK(130) + 256*PEEK(131). 

Run the following program to see the entries in the name 
table. It prints the value stored in the first 24 bytes of the 
name table, one byte for each character in each variable name. 
Check the results against the ATASCII listing in your manual, 
and don't forget that 128 has been added to the last character. 
The first number printed is 216, which is the first variable X 
(ATASCII code 88) plus 128, since X is also the last character 
in the first variable name. Line 50 prints the names with the 
last character as an inverse. Note: Before running this and sub¬ 
sequent program examples, enter NEW to clear previous vari¬ 
ables from the tables before entering the program. 

For error-free program entry, read "The Automatic Proofreader" elsewhere in this chapter 
before typing in this program. 

FK 1 REM -PROGRAM TO PRINT VARIABLE NAME TABLE 
EN 1 0 X = 1 2 : Y = 35: Z Z = i 2345 : DIM A(12) ,HIT (4,9) , SM 
ALL$(35),BIG*(612) 

GB 20 NTAB = PEEK ( 130) + 256#PEEK ( 131 > : REM -FIND N 
AME TABLE STARTING ADDRESS. 

PJ 30 FOR BYTE = 0 TO 23:? PEEK (NTAB + BYTE) ; " , " ; : 
NEXT BYTE 

JF 4 0 ? : ? : ? 

KC 50 FOR BYTE = 0 TO 23:? CHR$ (PEEK (NTAB + BYTE) ) 

;:NEXT BYTE 

The variable value table contains eight bytes of data for 
each variable in the name table. The eight bytes have different 
meanings for each variable type, as shown in Table 1. 

Table 1. Bytes in Variable Value Table 


Variable 

Type 

Byte Number 

0 

1 

2 3 

4 5 

6 7 

Scalar 

0 

var # 

6-byte binary coded decimal (BCD) value 

Array 

65 

var # 

offset 

LO HI 

first DIM+1 
LO HI 

second DIM+1 
LO HI 

String 

129 

var # 

offset 

LO HI 

length 

LO HI 

DIM 

LO HI 
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To find the start of the variable value table, PEEK into 
134(LO) and 135(HI) or VTAB = PEEK(134) + 256*PEEK(135). 
Enter and run the following program to see the variable num¬ 
ber, name, and eight bytes of data for each variable in the pro¬ 
gram. As in the previous program, line 10 contains example 
variables for experimentation. By the way, this program can be 
easily modified and appended to your own programs to list 
variables for reference. 

LG 1 REM .PROGRAM TO PRINT VARIABLE VALUE TABL 
E 

LG 5 GRAPHICS 0 

EN 10 X= 12s Y = 35: ZZ= 1234 5: DIM A(12) , HIT (4,9) , SM 
ALL*(35),BIG*(612) 

GF 15 NTAB = PEEK ( 1 30) +256*PEEK (131 ): REM -FIND N 
AME TABLE STARTING ADDRESS. 
m 20 VTAB = PEEK(134)+256IPEEK(135) : REM .FIND V 
AL.UE TABLE STARTING ADDRESS. 

JN 25 ? "VARC3 SPACES}VARNAME(5 SPACES}VTAB DA 
T A ” : ? 

DE 30 1=0: FOR VARNUM = 0 TO 12:? ” # " ; V ARNUM ; ” 

C4 SPACES}"; 

CP 35 POSITION 9 , VARNUM + 2: FOR BYTE = 0 TO 100: VA 
RCHR = NTAB-t-BYTE 

LH 4 0 IF PEEK (VARCHR) >128 THEN ? CHR$ <PEEK (VAR 
CHR)-128),:NTAB=VARCHR+1:POP :GOTO 55 
HB 45 ? CHR* (PEEK (VARCHR) ) ; 

NI 50 NEXT BYTE 

GB 55 POSITION 17, VARNUM + 2: FOR B YTE = 0 TO 7:? P 
EEK(VTAB+VARNUM*8+BYTE); 

LF 60 IF B YTE< 7 THEN ? " , " ; 

FH 65 NEXT BYTE:? 

QE 70 I = I + 1:NEXT VARNUM 

The array/string tabic contains the actual data for each 
element in an array and each character in a string. When 
BASIC encounters a string or array in your program, it first 
checks the name table for the variable number, then looks to 
the value table to see what it is. Finally, it takes the value of 
OFFSET (LO + 256*HI) and reaches that many bytes past the 
start of the array/string table for the actual data. The start of 
the array/string table is determined by PEEKing 140(LO) and 
141(HI) or ATAB = PEEK(140) + 256*PEEK(141). 
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The following program prints out data in the array/string 
table for SMALL$. Note that SMALL$ is the sixth variable en¬ 
tered in the program; thus its variable number is 5 (the first 
variable, X, is variable number 0). 

BP 1 REM .PROGRAM TO PRINT ARRAY/STRING DATA F 
OR SELECTED STRING < SMALL$) 

EN 10 X = 1 2 : Y = 35 : ZZ=12345: DIM A ( 1 2 ) , H I T ( 4,9 ) , SM 
ALL $ (35) ,BIG* (612) 

DM 20 SMALL*=”COMPUTE ! BOOKS" 

NM 30 VTAB=PEEK ( 1 34 ) +25 6*PEEK ( 1 35) 


AK 40 

ATAB=PEEK(140)+256*PEEK(141):REM 
TART OF ARRAY/STRING DATA AREA 

.FIND 

S 

BA 50 

LO=PEEK(VTAB+518+2):REM .PEEK 

R LO-BYTE OF SMALL* OFFSET 

IN 

VTAB 

FO 

PO 60 

HI=PEEK(VTAB+5*8+3):REM .PEEK 

R HI-BYTE OF SMALL* OFFSET 

IN 

VTAB 

FO 


U 70 0FFSET=L0+256*HI 

LH 80 FOR BYTE = 0 TO 1 6 : A = PEEK ( AT AB + OFFSET + B YTE 
):? A, C H R * <A) :NEXT BYTE 


Using Strings to Store Designs 

So much for how variables are managed. What can be done 
with this knowledge? Plenty. Obviously, you can PEEK into 
the tables and determine the status of various variables. Less 
obvious but equally useful, you can POKE in new values. 

Also, for arrays and strings, you can change the value of OFF¬ 
SET and the computer will use the new address for the data 
instead of the array/string table. This is particularly useful 
when dealing with strings, as you'll see in a moment. 

As mentioned earlier, strings are very versatile. You know 
that strings are nothing more than a series of ATASCII num¬ 
bers. Each number has a value from 0-255 and occupies one 
byte in memory. A string of 1000 characters will occupy 1000 
adjacent bytes in memory. 

That suggests an interesting application. A handy way to 
reserve 1000 bytes (or any other amount) of memory for your 
use is to dimension a string, say A$(1000). You could set up 
your own table of values within the string by indexing every 
10 or 100 addresses. The starting address of your string can 
be quickly found by the ADR(A$) function. Entering 
?PEEK(ADR(A$) + 99) will return the contents of the hun¬ 
dredth byte in A$. Using strings in this manner is a common 
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way to store integer data (values less than 256) and machine 
language subroutines. Note that when a string is used in this 
way, it will have a peculiar appearance when printed; what 
you see on the screen will be the ATASCII characters 
corresponding to the byte values for the data. 

Now let's see what happens when you change the OFF¬ 
SET value for a string. Recall that after BASIC builds the vari¬ 
able tables, you can go in with POKEs and alter them. If you 
dimension a string, say A$, to be the first variable encountered 
in a BASIC program, it will be listed as the first variable (0) in 
the tables (don't forget to enter NEW to clear tables first 
before entering your program). Hence, in the variable value 
table (VTAB), bytes 2 and 3 are the LO and HI values, respec¬ 
tively, for the OFFSET of A$ data from ATAB start. 

In other words, the starting address of A$ data is 
ATAB + OFFSET or ATAB + PEEK(VTAB + 2) + 256*PEEK 
(VTAB+ 3). POKE new LO-HI values into locations (VTAB 
+ 2) and (VTAB+ 3); the computer will store A$ data to 
ATAB + NEWOFFSET instead of the array/string table. 

Remembering that memory is just a long continuous place 
to store numbers from 0 to 255, let's change A$'s OFFSET and 
position the string to start at the display memory. Afterwards, 
any change in A$ will still change numbers in A$'s data table. 
But since A$'s data is stored in display memory, you will 
change the display as well. 

You can use that to create a screen design by putting 
characters into A$. That may seem a little mysterious, but the 
computer is actually looking at the display memory area 60 
times a second for screen data and couldn't care less where 
the data came from. 

The following program defines a string (A$), determines 
new LO-HI values for A$'s OFFSET, and then POKEs the new 
values into the variable value table for A$. Line 90 stores 
some data in A$ which is immediately displayed on the 
screen. 

HJ 1 REM -PROGRAM TO STORE STRING DATA TABLE F 
OR A $ IN SCREEN MEMORY AREA 
MM 5 DIM A$(200) ,B* (200) 

HM 10 GRAPHICS 3:SETC0L0R 0,4,6 
NL 20 VTAB=PEEK ( 134) +256*PEEK ( 135) 

MB 30 ATAB=PEEK(140)+256*PEEK(141> 

CA 4 0 SC REE N = PEEK (88) +256* PEEK (89) 
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MK 50 OFFSET = SCREEN-ATAB: REM .FIND DISTANCE FR 
OM ATAB START TO SCREEN MEMORY START 
KI 60 H I = I NT < OFFSET / 256 ) : REM .FIND H I -BYTE OF 
NEW OFFSET 

DK 70 LO = OFFSET-256*H I : REM .FIND LO-BYTE OF NE 
W OFFSET 

FL 80 POKE VTAB + 2, LO: POKE VTAB+3, HI : REM .POKE 
IN NEW LO-HI POINTER FOR 
BH 90 A$= ,, COMPUTE! BOOKS" : END 

PF 100 FOR 1 = 1 TO 200: A$ ( I , I ) =CHR$ (200) : NEXT I 
GJ 1 1 0 END 

DN 200 A$ ( 1 ) =CHR$ ( 0 ) : A$ < 200 > =C-HR$ ( 0) : A$ ( 2 ) = A$ 


While the GRAPHICS 3 picture is on the screen, type 
GOTO 100 to see one of many possible effects. Line 100 is a 
BASIC loop that fills A$ memory with the number 200. 

Speeding Things Up 

A much faster trick can be used to work at machine language 
speed. All characters in a string can be rapidly set to the same 
value by the statement A$(1) = CHR$(X):A$(SIZE) = CHR$(X): 
A$(2) = A$, where X = 0-255 and SIZE is equal to the maxi¬ 
mum string length. For example, A$(200) can be set to all ze¬ 
ros by executing A$(1) = CHR$(0):A$(200) = CHR$(0):A$(2) 

= A$. Try typing GOTO 200 while you're still in GRAPHICS 
3 and you will see the screen go blank (but note that a small, 
upper portion of the screen will still have some data since 
ATAB has now moved a few bytes in the manual mode). 

ATAB would not have moved had you stayed in the program 
mode. Now try changing A$ to contain all 255's by using 
CHR$(255). Try 185, 70, and other numbers of your choice. 

By now, you've probably noticed that each screen byte 
defines four adjacent color pixels on the screen in combina¬ 
tions of four colors (including background). This is true for the 
multicolor graphics modes of 3, 5, and 7. In GRAPHICS 8, 
each screen byte defines eight adjacent pixels of a single color. 
In multicolor modes, on and off patterns of bits 0 and 1 of a 
screen byte select the color for the rightmost pixel associated 
with that byte. Bits 2 and 3 set the next pixel to the left and so 
forth. Go ahead and experiment some more by changing A$ to 
different values. 

Press SYSTEM RESET (don't enter NEW this time or it 
will destroy your program) and PRINT A$ to see what it looks 
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like. Now run the program again and while in GRAPHICS 3 
enter B$ = "FFFFFFFFFF". Then set A$(100,110)=B$ to set the 
characters 100-110 of A$ equal to B$. Try A$(120,130) = B$ 
and experiment with different positions in A$ and values of 
B$. You can put A$(X,X + LEN(B$)) = B$ in a loop and vary X 
to create interesting effects. The screen can be changed very 
rapidly by having several strings for different shapes or de¬ 
signs and setting A$ (or parts of A$) equal to the choices. 
These strings can be complete pictures, and you can flip from 
one to another as simply as saying A$ = B$ and then A$ = C$. 

One more possibility is to first position the string in dis¬ 
play (or screen) memory. Then using conventional PLOT and 
DRAWTO commands, create a design of some sort; the 
graphic results will be automatically stored in your string. 

Of course, you can save the string to disk or tape like any 
other string, but you are really saving the screen. To do so, 
put A$ in screen memory and then set B$ = A$ after your de¬ 
sign is completed. Finally, save B$. 

In order to redisplay your saved picture, set up the graph¬ 
ics mode, change the offset to put A$ in screen memory, recall 
B$ from tape or disk, and set A$ = B$. Presto! Instant picture. 
Different graphics modes require different amounts of mem¬ 
ory, so be sure you have dimensioned a string large enough to 
cover the screen. The memory required for each mode is given 
in the following table. The lower row of values shows the 
number of bytes available when no text window is used. 

Table 2. Screen Memory Requirements for Various 
Graphics Modes 



Graphic Mode 

0 1 2 3 4 5 6 7 8 9 10 11 

Memory 

960 400 200 200 400 800 1600 3200 6400 

Memory (mode+16) 

480 240 240 480 960 1920 3840 7680 7680 7680 7680 
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Atari Color Matcher 

Ron Tinnell 


The Atari has a great color set, but finding the colors you 
want can be tiresome. This program lets you browse 
through the 128 colors at your leisure and makes it easy to 
pick the combinations you want. 

“Color Matcher" uses graphics mode 2 to put a three-color 
test pattern on the screen. It can show you two foreground 
colors and any one background color at one time. 

Using the space bar and the cursor control keys, you have 
full control over all three colors. The cursor-left and cursor- 
right keys control color hue, while the cursor-up and cursor- 
down keys control luminosity. Pressing these keys steps 
through color or luminosity values by 1. You don't need to 
use the CTRL key; simply press the cursor key to change the 
values. 

The display shows the hue and luminosity values that 
correspond to the colors currently on the screen. An indicator 
points to the variable parameter that is currently active; press 
the space bar to select the test color you want to change. 

When entering the program, be careful with the PRINT 
statements in lines 160, 170, and 420. Each contains a double 
space. 

Color Matcher 

For error-free program entry, read "The Automatic Proofreader" elsewhere in this chapter 
before typing in this program. 

DF 120 DIM H (3) , L (3) 

AO 130 GRAPHICS 2: H ( 1 ) =1 : L ( 1 ) =14: H (2) =8: L (2) =8 
:H(3)=3:L <3)=8:F=1 

FJ 140 SETCOLOR 4 , 1, 14:SETCOLOR 0,8 , 8 : SETCOLOR 
2,3,8 


GC 150 

POSITION 

5,0:PRINT 

#6; 

”BKGD COL 1” 

EN 160 

POSITION 

1,2:PRINT 

#6; 

"HUE 1“ 

IP 170 

POSITION 

1,3:PRINT 

#6; 

"LUM 14" 

KF 180 

POSITION 

1 1,2s PRINT 

#6 

; "B" 

KH 190 

POSITION 

11,3:PRINT 

#6 

; ” 8 M 

EE 200 

POSITION 

2,6:PRINT 

#6; 

” A B C D" 

AP 210 

POSITION 

3,7:PRINT 

#6; 

" E F G" 

BL 220 

POSITION 

4,8s PRINT 

#6; 

"HIJ" 

FI 230 

POSITION 

2,9:PRINT 

#6; 

”########” 

IB 240 

POSITION 

2,10:PRINT 

#6 

; ”########” 
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JA 250 POSITION 15, 0:PRINT #6 ;CHR$(195) ;CHR$<2 
07) ;CHR* (204) ;CHR$ (178) 

KE 260 POSITION 16,2:PRINT #6; ,, 3 n 
KL 270 POSITION 16,3:PRINT #6; ,, 8 n 

PF 280 POSITION 1 1,6: PRINT #6; CHR$ (205) ; CHR$ ( 1 
60);CHR*(206);CHR$(160);CHR$(207);CHR$( 
160);CHR$(208) 

KH 290 POSITION 12,7:PRINT #6;CHR$ (209) ;CHR$(1 
60) ;CHR$ (2 10) ;CHR$(160) ;CHR$ (211) 

FJ 300 POSITION 13,8s PRI NT #6;CHR$(212) ;CHR$(2 
13);CHR$(214) 

HH310 POSITION 10,9: FOR M = 0 TO 7:PRINT #6;CHR 
* ( 163) ; :NEXT M 

PF 320 POSITION 10, 10: FOR M = 0 TO 7sPRINT #6;CH 
R$(163);:NEXT M 
LN 400 IF F = 4 THEN F=1 

NE 405 POSITION <5*F+1 ) ,4:PR I NT #6; CHR$ (94) ; CH 
R*(94) 

LL410 CLOSE #3: OPEN #3,4,0, "K: ":GET #3,K 
GN420 IF K = 32 THEN POSITION (5*F+1 ) , 4: PRINT # 
6; H ":F=F+1:GO TO 400 
JK 430 IF K = 42 THEN H ( F)=H(F) +1 
JO 440 IF K = 43 THEN H(F)=H(F)-1 
CE 450 IF H ( F ) < 0 THEN H(F)=15 
CH 4 60 IF H (F) >15 THEN H(F)=0 
KK 4 70 IF K = 45 THEN L(F)=L(F)+2 
KL 480 IF K = 6 1 THEN L(F)=L(F)-2 
CP 490 IF L ( F ) < 0 THEN L(F)=14 
CJ 500 IF L (F) >14 THEN L(F)=0 

HE 5 1 0 POSITION (5*F+1 ), 2s PRINT #6;H(F);" " 

HK 520 POSITION ( 5 * F+ 1 ) , 3 : PR I NT #6;L(F);" " 

FK 530 0= 4 

HK 540 IF F = 2 THEN 0 = 0 

HO 550 IF F = 3 THEN 0 = 2 

HB 560 SETCOLOR Q,H(F),L(F) 

GJ 570 GO TO 400 
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The Automatic Proofreader 

Charles Brannon 


At last there's a way for your computer to help you check 
your typing. "The Automatic Proofreader” will make enter¬ 
ing programs faster, easier, and more accurate. 

The strong point of computers is that they excel at tedious, 
exacting tasks. So why not get your computer to check your 
typing for you? 

"The Automatic Proofreader" will help you type in 
program listings without typing mistakes. It is a short error¬ 
checking program that hides itself in memory. When activated, 
it lets you know immediately after typing a line from a pro¬ 
gram listing if you have made a mistake. Please read these 
instructions carefully before typing in any programs in this 
book. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be very 
careful when entering the DATA statements—don't type an 
1 instead of a 1, an O instead of a 0, extra commas, etc. 

2. Save the Proofreader on tape or disk at least twice before 
running it for the first time. 

3. After the Proofreader is saved, type RUN. It will check itself 
for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place—you'll need it again 
and again, every time you enter a program from this book 
or COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it activates 
itself. You are now ready to enter a program listing. If you 
press SYSTEM RESET, the Proofreader is disabled. To re¬ 
activate it, just type PRINT USR(1536) and press RETURN. 

Using the Proofreader 

All listings in this book have a checksum found immediately to 
the left of each line number. Don't enter the checksum when 
typing in a program. It is just for your information. 

When you type in a line from a program listing and press 
RETURN, the Proofreader displays the checksum letters at the 
top of your screen. These checksum letters must match the 
checksum letters in the printed listing. If they don't, it means 
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you typed the line differently than the way it is listed. Im¬ 
mediately recheck your typing. You can correct any mistakes 
you find immediately. 

The Proofreader is not picky with spaces. It will not no¬ 
tice extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
since the Proofreader will catch practically everything else that 
can go wrong. 

Due to the nature of a checksum, the proofreader will not 
catch all errors. The Proofreader will not catch errors of trans¬ 
position. In fact, you could type in a line in any order, and the 
Proofreader wouldn't notice. 

There's another thing to watch out for: If you enter the 
lines by using abbreviations for commands, the checksum will 
not match up. But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. The only abbreviation that 
cannot be handled this way is when a ? is used instead of 
PRINT; they are not the same to the Proofreader. 

The Automatic Proofreader 

100 GRAPHICS 0 

110 FOR 1=1536 TO 1700:READ A:POKE I,A:CK=C 
K+A:NEXT I 

120 IF C K <>190 7 2 THEN ? "Error in DATA Stat 
ements. Check Typing.":END 
130 A = USR < 1536) 

140 ? :? "Automatic Proofreader Now Activat 

ed . " 

150 END 

1536 DATA 104,160,0,185,26,3 
1542 DATA 201,69,240,7,200,200 
1548 DATA 192,34,208,243,96,200 
1554 DATA 169,74,153,26,3,200 
1560 DATA 169,6,153,26,3,162 
1566 DATA 0,189,0,228,157,74 
1572 DATA 6,232,224,16,208,245 
1578 DATA 169,93,141,78,6,169 
1584 DATA 6,141,79,6,24,173 
1590 DATA 4,228,105,1,141,95 
1596 DATA 6,173,5,228,105,0 

48 



Chapter 1 


1602 
1608 
1614 
1620 
1626 
1632 
1638 
1644 
1650 
1656 
1662 
1 668 
1674 
1680 
1 686 
1692 
1698 


DATA 141,96,6,169,0,133 
DATA 203,96,247,238,125,241 
DATA 93,6,244,241,115,241 
DATA 124,241,76,205,238,0 
DATA 0,0,0,0,32,62 
DATA 246,8,201,155,240, 13 
DATA 201,32,240,7,72,24 
DATA 101,203,133,203,104,40 
DATA 96,72,152,72,138,72 
DATA 160,0,169,128,145,88 
DATA 200,192,40,208,249,165 
DATA 203,74,74,74,74,24 
DATA 105,161,160,3,145,88 
DATA 165,203,41,15,24,105 
DATA 161,200,145,88,169,0 
DATA 133,203,104,170,104,168 
DATA 104,40,96 
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Nessie 

A Nonviolent Game for Atari 

Tom R. Halfhill 


"Nessie" is a nonviolent action game that challenges you 
to snap a clear photograph of the Loch Ness monster. It 
runs on any Atari computer with at least 16K (tape) or 24K 
(disk), and a joystick. 

For decades, fans of and believers in Scotland's Loch Ness 
monster have affectionately referred to the mysterious creature 
as "Nessie"—hence the title of this game. 

The game was inspired by a TV documentary on Loch 
Ness which recounted the hundreds of attempts to photograph 
the monster. Almost all of these attempts have failed; there 
exist only a few controversial photos showing parts of fins, 
shadowy shapes, and blurred figures. The game simulates 
some of the difficulties faced by would-be photographers of 
Nessie. 

Starting Nessie 

When typing "Nessie," omit all REM statements if your com¬ 
puter has only 16K of RAM. It will barely fit in memory if 
loaded from tape. At least 24K is required for disk. 

After you type RUN, the program requires a few seconds 
to initialize. During this period, special areas of memory are 
protected, player/missile graphics are set up, game screens are 
prepared, and machine language routines are loaded into 
memory (Nessie makes extensive use of machine language, as 
noted below). About halfway through this waiting period 
you'll see the camera viewfinder frame and aiming crosshairs 
appear on the screen. 

The next screen which appears lets you select difficulty 
options and displays the scoring possibilities. 

There are two difficulty levels. Toggle between them with 
the SELECT key. This chooses which lens you want on your 
camera. By far the easiest option is wide-angle, the default op¬ 
tion. A wide-angle lens allows photographers to cover a larger 
area from their camera position. In Nessie, the wide-angle lens 
is indicated by a large viewfinder. 

Pressing the SELECT key switches between the wide- 
angle and the telephoto lens. The telephoto is represented by 
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a much smaller viewfinder. In fact, the telephoto viewfinder 
barely frames Nessie. This makes the telephoto lens much 
more difficult to use than the wide-angle. To give you an idea 
of this difference, Nessie appears actual size within each view¬ 
finder as you switch lenses. 

Since the telephoto is harder to use, it scores more points. 
The lower half of this screen displays the point totals for every 
possible picture you can take. For example, using the wide- 
angle lens, a clear, properly framed photo of Nessie scores 
2000 points; a photo in which you crop off Nessie with the 
viewfinder scores 100 points; if you are fooled and take a 
photo of a fish or an eel instead of Nessie, you get only 50 
points; and if you shoot a blurred photo by moving the cam¬ 
era when you press the shutter button, you get zero points. 
Likewise, a photo of nothing also scores nothing. 

All of these point totals are multiplied by ten if you're 
using the telephoto lens. The game also scores you on the 
amount of time you take to shoot your pictures. The longer 
you take, the lower your score. 

After selecting your lens, begin the game by pressing the 
START key. This starts the timer and displays the main game 
screen. 


Getting the Whole Picture 

At the top of the main game screen is your camera's film 
counter, which shows how many pictures remain on your roll 
of film. You start with a 20-exposure roll. Each time you snap 
a picture, the film counter decrements. 

Your camera viewfinder starts in the center of the screen 
(which represents Loch Ness). You can move it in any direc¬ 
tion with the joystick. Pressing the fire button releases the 
shutter. The viewfinder frame itself is blue, with a green aim¬ 
ing crosshairs in the center. To take a properly centered photo, 
you must position the crosshairs over Nessie. If any part of 
Nessie is touching the viewfinder frame when you snap the 
shutter, it will register as a cropped photo when the film is 
developed at the end of the game. A picture of a piece of 
Nessie is better than nothing—that's why it's worth 100 or 
1000 points—but it's not nearly as valuable as a photo of the 
whole monster. (Let's face it, wouldn't you feel better walking 
into the New York Times with an indisputable picture of Nessie 
instead of a doubtful snapshot of a dorsal fin?) 
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For the same reason, you must be careful not to include 
any other objects in the viewfinder while photographing 
Nessie. This isn't as easy as it sounds. When you start the 
game, you'll find that Loch Ness is alive with fish and eels of 
assorted shapes and colors. If you photograph one of these in¬ 
stead, you've been fooled—and your photo is worth only 50 
or 500 points. (The reason you get any points at all is that you 
might be able to sell the photo to Field & Stream or an airline 
magazine.) The eels are particularly troublesome. They bear an 
uncanny resemblance to Nessie, which is why so many hope¬ 
ful photographers over the years have been fooled. 

Another hazard to beware of is jittery hands. Nessie is not 
an easy target—the creature appears at random in the Loch, 
swims in random directions for a few seconds, and then sub¬ 
merges to appear somewhere else. Meanwhile, you're trying to 
center the monster in the viewfinder. If you snap the shutter 
while moving the finder, the picture will be blurred. And 
that's worth zero points. 

When you get down to your last five pictures on the roll 
of film, the viewfinder frame automatically turns from blue to 
bright yellow as a warning. This is in case you're too busy to 
pay attention to the film counter. 

Developing the Film 

After snapping your last shot, everything freezes for an in¬ 
stant. Then the screen blanks out and the film starts develop¬ 
ing. Since the slightest bit of light in the darkroom would 
spoil it all, the screen is black during this process. After a few 
moments, the finished pictures appear—gradually developing 
to full brightness as they would in a darkroom tray. 

Each of the 20 finished prints shows what you photo¬ 
graphed when you snapped the shutter. They are arranged in 
the order you shot them, and each is captioned (unless the 
picture is blank). At the bottom of the screen is your final 
score, adjusted for the amount of time that elapsed. 

To restart Nessie, just snap the shutter button on your 
joystick. This returns you to the setup screen, where you can 
change lenses if you wish before playing again. 

Programmer’s Notes 

Nessie is a fast, responsive game because the most critical 
animation—the movement of the camera viewfinder—is 
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written entirely in machine language. An ML routine which fills 
almost all of page 6 in memory (1536 decimal, $600 hex) con¬ 
stantly reads the joystick and moves the finder. All of this is 
done during the vertical blank interval, that split second when 
the TV's electron gun returns from the bottom of the screen to 
the top to begin scanning another screen frame. Since this 
happens 60 times per second, the viewfinder's movements ap¬ 
pear instantaneous and flicker-free. 

The viewfinder itself is created with player/missile graph¬ 
ics. Two player objects are used—one for the frame and an¬ 
other for the crosshairs. This allows the collision-checking 
routine to detect separate collisions between Nessie, the frame, 
or the crosshairs. 

At least 90 percent of the BASIC in Nessie is initializa¬ 
tion—once it sets up the game for the first time, most of it is 
never executed again. Using BASIC for this work made Nessie 
easier to program, since setup tasks can be tedious in machine 
language. ML was used only for the time-critical operations. 

This is reflected in the main loop, which starts at line 
10000 and is really only six lines long (and a few of these 
lines could be combined to make the loop even shorter). Since 
the ML routine executes automatically during each vertical 
blank, repeated calls to the routine via BASIC's USR statement 
are unnecessary. The only thing BASIC does during the main 
phase of Nessie is animate the fish, eels, and monster. BASIC 
also checks the shutter button and handles the picture-taking 
sequence (clicking the shutter, flashing the screen, storing col¬ 
lision register values in arrays for later analysis). Everything 
else is in machine language. 

Actually there are four ML routines in the program. By far 
the largest is the main routine in page 6. A second routine 
switches on the vertical blank interrupt routine when the 
game starts, and another shuts it off when the game ends. The 
fourth routine instantly flips player shapes when called by a 
USR statement. This is used to rapidly change the viewfinder's 
size when toggling back and forth between the wide-angle 
and telephoto lenses during the setup screen. This very short 
but useful routine is from Eric Stoltman's article "Extending 
Player/Missile Graphics" ( COMPUTEi's First Book Of Atari 
Graphics). 

Redefined characters in graphics mode 2 + 16 are used for 
Nessie, the fish, and the eels during the main part of the 


56 



Chapter 2 


game. To speed up their animation, the characters are POKEd 
directly into screen memory, which is faster than using PO¬ 
SITION and PRINT statements. 

The final game screen, which shows the developed pic¬ 
tures, uses a modified display list to put strips of different 
graphics modes on the screen simultaneously. This screen is a 
mixture of graphics modes 0 and 1. 

Nessie 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

BE 200 GOSUB 1 1000: REM Initialize 

6B 210 GOSUB 12000: REM Rede-fine characters 

6H215 GOTO 13000:REM Setups 

BL 220 GOTO 10000:REM Main loop 

KF 1000 REM 

JB 1005 REM *** MOVE NESSIE & DECOYS *** 

KG 1010 REM 

CE 1020 POKE SCREEN+COORD < OBJECT) , 0: NOOCOORD = C 
OORD(OBJECT)+ MOVE(INT(RND(0)*9)+1) 

Cl 1040 IF NOOCOORD<40 OR NOOCOORD>239 THEN CO 
ORD(OBJECT)=I NT(RND(0) *200)+40:RETURN 
AJ 1060 POKE SCREEN + NOOCOORD,CHAR(OBJECT) : COOR 
D(OBJECT)=NOOCOORD:RETURN 
KG 2000 REM 

GD 2005 REM *** SNAP PHOTO *** 

KH 2010 REM 

FB 2020 POKE 77,0: FILM=FILM-1 : POSITION 15,0:? 

#6;" ":POSITI ON 15,05? #6;FILM:SOUND 

0,0,0,0 

BL 2040 FRAME (PHOTO) =PEEK (53252) : HAIR (PHOTO) =P 
EEK(53253):BLUR(PHOTO)=STICK(0):PHOTO= 
PHOTO+1 

BO 2060 SETCOLOR 4,9,4: IF FILM<6 THEN POKE 704 
,28 

MS 2080 IF FILM = 0 THEN SOUND 0,240, 10, 15:POP : 

TIME=INT((PEEK(18)*65536+PEEK(19)*256 + 
PEEK(20) ) /60) s GOTO 2200 
AA 2100 BUTTON = STRIG (0) : RETURN 

LJ 2200 A = USR (ADR (VBOFF$) ): SOUND 0,0,0,0:FOR I 
= 1 TO 1000-.NEXT I : GOTO 14000 
NF 10000 REM 

DF 10005 REM *** MAIN LOOP *** 

NS 10010 REM 

EE 10020 POKE HITCLR , 0 

HF 10040 IF STRIG (0) =1 THEN BUTTON=l 
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SJ 10340 

EL 10380 

NF 10400 
CB 10420 
N6 1 1000 
ID 1 1020 
NK 1 1040 
EJ 1 1060 


BP 1 1080 
NG 11100 
HF 11120 


HD 11140 


ID 11160 

IK 11180 

CP 1 1200 
IC 1 1220 

BJ 1 1240 

IH 1 1 245 

HP 1 1250 

OJ 1 1 260 
BO 1 1280 

EL 1 1 300 


IF STRIG(0)=0 AND BUTTON=l THEN POKE 
712,14:SOUND 0,4,8,15:GOSUB 2000 
OBJECT=OBJECT+l:IF 0BJECT>6 THEN OBJE 
CT= 1 

GOSUB 1000:REM Move objects 

GOTO 10000 

REM 

REM *** INIT P/M & ML *** 

REM 

GRAPHICS 2+16:SETCOLOR 2,0,0:? #6;" 

C7 SPACES>nessie":? #6:? #6;” 

C4 SPACES>PLEASE WAIT":? #6;" 

{5 SPACES!- 2 1 SECONDS" 

PM=PEEK<106)-8:PMBASE=256*PM:HITCLR=5 
3278 

FOR I=PMBASE+512 TO PMBASE+768:POKE I 
,0:NE X T I 

RESTORE 11280:DIM WIDEFRAME$(20):FOR 
1=1 TO 20:READ A:WIDEFRAME$(I,I)=CHR$ 
(A):NEXT I:REM Wide viewfinder 
RESTORE 11300:DIM TELEFRAME$(20):FOR 
1=1 TO 20:READ A:TELEFRAME*(I,I)=CHR* 
(A):NEXT I:REM Tele viewfinder 
RESTORE 11340:DIM WIDEHAIRt(20):FOR I 
= 1 TO 20:READ A:WIDEHAIR$ ( I, I)=CHR$(A 
):NEXT I:REM Wide crosshair 
RESTORE 11360:DIM TELEHAIR$(20):FOR I 
= 1 TO 20:READ A:TELEHAIR* ( I, I)= CHR$(A 
):NEXT I:REM Tele crosshair 
POKE 704,130:POKE 705,198:REM Blue vi 
ewfinder & green crosshair 
POKE 559,46:POKE 623,1sPOKE 53277,3:P 
OKE 54279,PM:POKE 53256,3:P0KE 53257, 
3:REM P/M setup 

HORIZ 0=116:VERT0=PMBASE+512+61 :HORIZ1 
=118:VERTl=PMBASE+640+66:REM Initial 
position s 

FOR 1=1 TO 20:POKE VERT0+I,ASC(WIDEFR 
AME$<I)):NEXT I:POKE 53248,HORIZ0:REM 
Draw viewfinder 

FOR 1 = 1 TO 20:POKE VERT 1 + I,ASC(WIDEHA 
IR*<I)):NEXT I:POKE 53249,HORIZ1:REM 
Draw crosshair 
REM * VIEWFINDER SHAPES * 

DATA 255,255,129,129,129,129,129,129, 
129, 129, 129, 129, 129, 129, 129, 129, 129,2 
55,255,0 

DATA 255,129,129,129,129,129,129,129, 
129,255,0,0,0,0,0,0,0,0,0,0 
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KB 1 1320 
DS 1 1340 

FH 1 1360 

PH 1 1380 
NA 1 1400 

D8 1 1420 


JN 

1 

1 

440 

KA 

1 

1 

460 

OH 

1 

1 

480 

CL 

1 

1 

490 

FH 

1 

1 

500 

FI 

1 

1 

510 

IJ 

1 

1 

520 

FD 

1 

1 

530 

FF 

1 

1 

540 

FO 

1 

1 

550 

CJ 

1 

1 

560 

IL 

1 

1 

570 

FJ 

1 

1 

580 

DJ 

1 

1 

590 

PJ 

1 

1 

600 

HA 

1 

1 

610 

HD 

1 

1 

620 

LH 

1 

1 

630 

HB 

1 

1 

640 

HN 

1 

1 

650 

PC 

1 

1 

660 

HP 

1 

1 

670 

HB 

1 

1 

680 

HN 

1 

1 

690 

LJ 

1 

1 

700 

ND 

1 

1 

710 

HK 

1 

1 

720 

BO 

1 

1 

730 

DD 

1 

1 

740 

HK 

1 

1 

750 

ND 

1 

1 

760 

HI 

1 

1 

770 

BO 

1 

1 

780 

JI 

1 

1 

790 

LH 

1 

1 

800 

GK 

1 

1 

810 

ID 

1 

1 

820 


REM * CROSSHAIR SHAPES * 

DATA 16,16,16,16,124,16,16,16,16,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

DATA 16,16,124,16,16,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0,0 

REM * FLIP SHAPE ROUTINE * 

DIM FLIP*(25):RESTORE 11420:FOR 1=1 T 

O 25 s READ A:FLIP*<I,I)=CHR*<A>:NEXT I 
DATA 104,104,133,204,104,133,203,104, 
133,207,104,133,206,160,0,177,206,145 
,203,200,192,20,208,247,96 
REM * READ JOYMOVE ROUTINE * 

RESTORE 11480:FOR 1=0 TO 204:READ A:P 

OKE 1536+1,As NEXT I 

DATA 174, 120,2,224, 14,208 

DATA 3,32,172,6,224,6 

DATA 208,6,32,172,6,32 

DATA 107,6,224,7,208,3 

DATA 32,107,6,224,5,208 

DATA 6,32,140,6,32,107 

DATA 6,224,13,208,3,32 

DATA 140,6,224,9,208,6 

DATA 32,140,6,32,74,6 

DATA 224,11,208,3,32,74 

DATA 6,224,10,208,6,32 

DATA 172,6,32,74,6,76 

DATA 98,228, 173, 253,6,201 

DATA 4 8,240,25,206,253,6 

DATA 206,253,6, 173,253,6 

DATA 141,0,208,206,251,6 

DATA 206,251,6, 173,251,6 

DATA 141,1,208,96,96,173 

DATA 253,6,201,176,240,25 

DATA 238,253,6,238,253,6 

DATA 173,253,6,141,0,208 

DATA 238,251,6,238,251,6 

DATA 173,251,6,141,1,208 

DATA 96,96,172,252,6,192 

DATA 96,176,24,160,0,177 

DATA 203,145,205,136,192,0 

DATA 208,247,238,252,6,238 

DATA 252,6,238,250,6,238 

DATA 250,6,96,96,172,252 

DATA 6, 192,28, 14 4,24, 160 

DATA 0,177,205,145,203,200 

DATA 192,255,208,247,206,252 

DATA 6,206,252,6,206,250 

DATA 6,206,250,6,96,96 

REM * SET UP VBLANK * 
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FH 11900 DIM VBSETUP$ ( 1 1 ) : RESTORE 11920:FOR 1 = 

1 TO 11:READ A:VBSETUP$(I)=CHR$(A):NE 
XT I 

KM 1 1920 DATA 104, 162,6, 160,0, 169,7,32,92,228, 
96 

JE 11940 DIM VBOFF$ ( 1 1 ) : FOR 1 = 1 TO 1 1 : READ A:V 
BOFF*(I)=CHR$<A):NEXT I 
FH 1 I960 DATA 104, 162,2 28, 160,98, 169,7,32,92,2 
28,96 

CB 11980 DIM LENS*(IS):DIM MOVE (9) , CHAR (6) ,COO 
RD(6),FRAME(20),HAIR(20),BLUR(20),PIC 
TURE(20),CAPTION(30):RETURN 
NH 12000 REM 

PG 12010 REM *** REDEFINE CHARACTERS *** 

NN 12015 REM 

HI 12020 CHSET = (PEEK ( 106) -8) *256: FOR 1=0 TO 51 
2:POKE CHSET+I,PEEK(57344+1):NEXT I 
BE 12021 RESTORE 12025 

AI 12022 READ A: IF A = -l THEN RETURN 
FM 12023 FOR J=0 TO 7: READ B:POKE CHSET + AtB + J, 
B:NEXT J 

CJ 12024 GOTO 12022 

IF 12025 DATA 1,255,255, 192, 192, 192, 192, 192, 19 

r> 

BC 12026 DATA 3,255,255,3,3,3,3,3,3 

EC 12027 DATA 4,3,3,3,3,3,3,3,3 
BG 12028 DATA 5,3,3,3,3,3,3,255,255 
AG 12029 DATA 6,0,0,0,0,0,0,255,255 
IH 12030 DATA 7, 192, 192, 192, 192, 192, 192,255,25 
5 

IJ 12031 DATA 8, 192, 192, 192, 192, 192, 192, 192, 19 

2 

PL 12032 DATA 9,0,0,0,0,0,0,213,127 
AK 12033 DATA 10,0,0,64, 19 2,85, 127, 126,0 
JH 12034 DATA 11,0,0,2,3, 170,254, 126,0 
CM 12035 DATA 12,0,0,0,0,0,0, 171,254 
AG 12036 DATA 13,0,0,56,125,222, 125,56,0 
AK 12037 DATA 14,0,0,28, 190,123, 190,28,0 
EN 12038 DATA 26,5, 10,2 1,42,84, 168,80, 128 
DK 12039 DATA 27,255,255,0,0,0,0,0,0 
MM 12040 DATA 32,0,32,48,32,224,224,0,0 
HA 12041 DATA -1 
NI 13000 REM 

IC 13005 REM * SET UP SCREEN * 

NJ 13010 REM 

LI 13020 SETCOLOR 4,9,4:P0KE 756 , CHSET / 256 : ? # 
6;CHR* ( 125) :SETCOLOR 3,12,2:SETCOLOR 
0,4,8:SETCOLOR 2,0,0 

CE 13040 FILM = 20:LENS=1:LENS$="wideangleteleph 
oto":SCREEN=PEEK(88)+PEEK(89)*256 
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fN 13060 

BD 13062 

Hfl 13064 

CH 13070 
MF 13080 

NO 13100 
BE 13110 
FF 13115 
EP 13120 
IH 13125 

IE 13128 

FK 13130 

FE 13140 
CJ 13145 

FP 13150 

OC 13160 

HL 13180 
HB 13200 

FD 13220 

BG 13240 

PD 13250 
BF 13260 
AP 13270 

JL 13280 


? #6;" C7 SPACESJCSggHl" : 7 #6:7 #6;'* < 

select) ,, ;LENS$<LENS,LENS + 8) :? #6; " 

C 4 SPACESK start > game” 

POSITION 0,8:7 #6;CHR$(171);" NESSIE 
= 20 00/20000":P OS ITI ON 0,9:7 #6;CHR$ ( 1 

92);" CROP = 100/ 1000" 

POSITION 0,10:7 #6;CHR* (174) ;CHR$(172 
);" FOOLED= 50/ 500":POSITION 0,11: 

7 #6;C H R $(186);" BLUR =C3 SPACES>0" 
POSITION 10,7:7 #6;CHR$(171) 

SOUND 0,0,0,0:POSITION 10,3:7 #6;LENS 
*(LENS,LENS+8):IF PEEK(53279)=6 THEN 
13160 

IE PEEK(53279)<>5 THEN 13080 
LENS=LENS+9:IF LENS>10 THEN LENS=1 
IF LENS=1 THEN 13125 
IF LENS/l THEN 13140 

A = USR(ADR(FLIP$) ,VERT 0,ADR(WIDEFRAME$ 
)):POKE 53256,3:SOUND 0,160,10,15 
FOR I=VERT 1 TO VERT1+2:P0KE I,0:NEXT 
I:VERT1=VERT1+3:A=USR(ADR(FLIPS),VERT 
1,ADR(WIDEHAIR$)):POKE 53257,3 
POSITION 9,6:7 #6;" ":POSITION 10,7:7 
#6;CHR*(171):HORIZ1=118:POKE 53249,H 
ORIZ1:GOTO 13080 

A=USR(ADR(FLIP*),VERT0,ADR(TELEFRAME$ 
)):POKE 53256,1:SOUND 0,80,10,15 
VERT1=VERT1-3:A = USR(ADR(FLIP*) ,VERT 1 , 
ADR(TELEHAIR$)):POKE 53257,1 
POSITION 10,7:7 #6;" "POSITION 9,6:7 

#6; "E”s HOR IZ1 = 117: POKE 53249,HORIZ1 : 
GOTO 13080 

SOUND 0,120,10,15:7 #6;CHR$(125):POSI 

TION 0,0:7 #6 ; "QLEnessi e FILM=” ; FILM; 

” QQB3" 

COLOR ASC("W"):PLOT 0,1:DRAWTO 19,1 

MOVE ( 1 )=-20:MOVE (2)=-19: MOVE (3)=1 :MOV 

E(4)=21:MOVE(5)=20:MOVE (6) = 1 9 

MOVE(7)=—1:MOVE(8)=—21:MOVE(9)=250:CH 

AR ( 1 ) =9: CHAR (2)=139: CHAR (3) =77: CHAR (4 

)=201:CHAR(5)=14:CHAR(6)=204 

FOR OBJECT=1 TO 6: COORD(OBJECT) =I NT ( R 

ND(0)*200)+40:POKE SCREEN+CODRD(OBJEC 

T),CHAR(OBJECT):NEXT OBJECT 

PHOTO=1 

POKE 1789,HORIZ0:POKE 1787,HORIZl 
POKE 1788,61:POKE 203,0:REM VERT0 lo 
byte 

POKE 204, (PMBASE + 512) /256:REM VERT 0 h 
i byte 
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LG 13290 
JJ 13300 
GI 13310 

MG 13320 
GE 13330 

ML 13340 

NJ 14000 
AO 14020 
NN 14040 
NP 14050 

AN 14060 

NF 14065 
NP 14070 
CC 14080 
MO 14 100 
ML 14 110 
NM 14112 

GP 14 115 

LG 14120 
JG 14 140 

EL 14 160 

JM 14 180 

FB 14200 

JJ 14220 

HD 14240 


POKE 1786, 194:POKE 207 ? 128:REM VERT 1 
lo byte 

POKE 208, (PMBASE + 512) /256:REM VERT 1 h 
i byte 

POKE 205,2: REM Lo byte -For vert memor 
y shift 

POKE 206,(PMBASE+512)/256:REM Hi byte 
for vert memory shift 
IF LENS/1 THEN POKE 1647,192:POKE 168 
0,106:REM Reset range check for telep 
h ot o 

A=U5R(ADR(VBSETUP$) ) :POKE 18,0:POKE 1 
9,0:POKE 20,0:SOUND 0,0,0,0:GOTO 220 
REM 

REM *** DEVELOP FILM *** 

REM 

POKE 53277,0:POKE 53261,0:POKE 53262, 
0:REM P/M OFF 

GRAPHICS 0:SETCOLOR 2,0,0:DLIST = PEEK ( 
560) 4-256*PEEK (561 ) : SCREEN = PEEK (88) +25 
6 * P E E K(89) 

SETCOLOR 0,0,0: SETCOLOR 1 , 12, 10: SETCO 
LOR 3,0,0 

POKE 756,CHSET/256:POKE 752,1:7 CHR$( 
125)POSITION 0,16sPOKE 82,0 
RESTORE 14100:FOR 1=6 TO 26:READ A:PO 
KE DLIST+I,A:NEXT I 

DATA 6,6,6,2,2,6,6,6,2,2,6,6,6,2,2,6, 

6 , 6 , 2 , 2,6 

FOR 1=1 TO 15:READ A:POKE SCREEN+672+ 
I,A:NEXT I 

FOR I=PMBASE+512 TO PMBASE+768:POKE I 
,0:NEXT I 


DATA 36,37,54,37,44, 

38,41,44,45 

FOR 11=1 TO 4 

FOR 1=0 TO 19:READ A 

,A:NEXT I 

DATA 1,27,3,0,1,27,3 
•w->,0, 1,27,0,0 
FOR 1=0 TO 19:READ A 
, A:NEXT I 

DATA 8,0,4,0,8,0,4,0 

8 , 0 , 4,0 

FOR 1=0 TO 19:READ A 
, A:NEXT I 

DATA 7,6,5,0,7,6,5,0 
7 , 6 , 5 , 0 


47,48,41,46,39,0 

: POKE SCREEN + 40 + 
, 0, 1,27,3,0, 1,27 
: POKE SCREEN + 60 + 
, 8,0,4,0,8,0,4,0 
: POKE SCREEN + 80 + 
, 7,6,5,0,7,6,5,0 


* 


I 


I 


I 


jr 
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NP 14260 
OK 14280 

FN 14300 
GH 14350 

KD 14355 

GA 14356 
CF 14357 

KM 14360 

KG 1 4365 
EG 14370 

AO 14380 

AG 14390 
AK 14400 

PF 14420 

GO 14440 
BE 14500 

HC 14505 
MK 14510 

OG 14520 
BO 14540 

ED 14550 
PO 14560 
MG 14570 


RESTORE 14160:SCREEN=SCREEN*140:NEXT 
I I 

RESTORE 14300:SCREEN=PEEK(88)*256*PEE 
K(89):FOR 1=0 TO 5:READ A:POKE SCREEN 
+606*1,A:NEXT I 
DATA 46,37,51,51,41,37 

FOR 1 = 1 TO 20:READ A:PICTURE < I )=A:NEX 
T I 

DATA 61,65,69,73,77,201,205,209,213,2 
17,341,345,349,353,357,481,485,489,49 
3,497 

FOR 1 = 1 TO 30:READ A:CAPT ION(I)=A:NEX 
T I 

DATA 34,44,53,50,0,0,35,50,47,48,0,0, 
38,47,47,44,37,36,46,37,51,51,41,37,0 
, 0 , 0 , 0 , 0,0 

RESTORE 14510:SCORE=0:SETCOLOR 1,0,0: 
FOR 1=1 TO 21 
IF 1=21 THEN 14520 

IF BLUR <1)015 THEN POKE SCREEN+PICTU 
RE(I),90:X=0:GOSUB 14500:NEXT I 
IF HA IR <I)=4 AND FRAME(I)<>4 THEN SCO 
RE=SCORE+2000:POKE SCREEN+PICTURE(I), 
203:X=18:GOSUB 14500:NEXT I 
F = FRAME(I ) :H = HA IR(I) 

IF F >3 AND F < >8 AND F<>9 AND F<>10 TH 
EN SCORE=SCORE+100:POKE SCREEN+PICTUR 
E<I),96:X=6:GOSUB 14500:NEXT I 
IF HAIR(I)>0 THEN SCORE=SCORE+50:POKE 
SCREEN+PICTURE(I),76:X=12:GOSUB 1450 
0:NEXT I 

X=24:GOSUB 14500:NEXT I 

SOUND 0,12*1,10,7:READ A:F OR 11 = 1 TO 
6:POKE SCREEN + PICTURE <I)+A+II,CAPTION 
(I I + X) :NEXT I I 

SOUND 0,0,0,0:RETURN :REM Print capti 
on s 

DATA 38,42,46,50,54,38,42,46,50,54,38 
,42,46,50,54,38,42,46,50,54,54:REM Ca 
ption locations 

FOR 1=0 TO 6:SETCOLOR 0,5,I:FOR 11=1 
TO 8:NEX T II:NEXT I 

FOR 1=0 TO 8:SETCOLOR 3,15,I:F0R 11=1 

TO 8:NEX T II:NEXT I 
FOR 1=0 TO 10:SETCOLOR 1,12,I:FOR 11= 
1 TO 8:NEXT II:NEXT I 

RESTORE 14570:FOR 1=0 TO 6:READ A:POK 
E SCREEN + 632 + I,A: NEXT I 
DATA 51,35,47,50,37,0,29 
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CP 14620 

PN 14640 

BP 14650 
EA 14660 
DM 14680 

NN 14700 

BA 14720 

EL 14740 

NF 14760 


RESTORE 14640 s FOR 1 = 1 TO 22 s READ A:PO 
KE SCREEN+666+I,As NEXT I 

DATA 52,47,0,50,37,48,44,33,57,0,51,4 
6,33,48,0,51,40,53,52,52,37,50 
IF LENS >1 THEN SCORE = SCORE* 10 
? INT( (4/TIME) *SCORE) ; 

IF STRIG(0)=1 THEN 14680 

SOUND 0,4,8,15sF0R 1=1 TO 3:NEXT IsSO 
UND 0,0,0,0:POKE 53248,0:POKE 53249,0 
:POKE 704,130 

GRAPHICS 2+16:HORIZ0=116: VERT0=PMBASE 
+-5 12 + 61 : HORI Z 1 = 1 18: VERT 1=PMBASE + 640 + 6 
6:POKE 53277,3:POKE 559,46 
POKE 53256,3:P0KE 53257,3:F0R 1=1 TO 

20:POKE VERT0+I,ASC(WIDEFRAME*<I)):NE 
XT I:POKE 53248,HORIZ0 

FOR 1 = 1 TO 20:POKE VERT 1 +1,ASC<WIDEHA 
IR*<I)):NEXT I:POKE 53249,HORIZ1:GOTO 
13000 
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Tank 

David E. Huff and Douglas C. Huff 

With the help of this program, you may well be the first on 
your block to drive a tank. A joystick and at least 16K RAM 
are required. 

You are the commander of a sophisticated Tracking And Neu¬ 
tralizing Kar (TANK). Your mission? It's too secret to even 
think about—but before you can get started you must cross 
enemy territory and pick up vital information from rebel 
headquarters. 

To get that information, you must navigate your tank 
through a treacherous battlefield strewn with mines and coiled 
barbed-wire fences—and to make things even more interest¬ 
ing, you have to take on hostile enemy MCs (Mobile Crunch¬ 
ers) as well as enemy aircraft too. 

Taking Control 

The obstacle-strewn battlefield scrolls from top to bottom as 
you push your joystick forward. Should you touch any object 
while threading your way through the minefield, your tank 
will be destroyed. In addition, you must keep an eye out for 
those Crunchers as they cross the field in an attempt to ram 
your tank. You have to blast them, because they cannot be 
outrun. 

Your tank is blue. It will not appear at the bottom of the 
screen until you move your joystick to the left, right, or up. 
Enemy Crunchers are red and will attack at random from the 
sides of the screen. 

There are three sets of five fields each. As the field num¬ 
ber increases, more obstacles appear on the battlefield. When 
you finish a set of five battlefields, the Crunchers speed up for 
the next set. 

You start with three tanks, and you get an extra one for 
each battlefield you cross. Hitting any object (or being flat¬ 
tened by a Cruncher) will cost you one tank, and getting 
blown up will cost you any points you have accumulated on 
that particular attempt. Once you are destroyed you must start 
over at the beginning of the battlefield. 

You receive ten points for blasting an enemy Cruncher or 
for shooting down an aircraft, but the points are not actually 
awarded until you successfully complete a field. When you 
run out of tanks press the START key to restart the game. 
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Hints 

When maneuvering your tank, try to stay in the middle of the 
battlefield. That gives you more time to turn and aim at the 
approaching enemy vehicles. Try to get through tight spots 
quickly. If you get caught in a tight spot, you might not be 
able to turn and fire on the enemy without hitting an obstacle. 

Note that your horizontal speed is greater than your verti¬ 
cal speed. This gives you a chance to move away from a mine 
before turning and firing at the enemy tank. If you just tap the 
joystick, you can flip directions without moving. Remember 
that you cannot go backwards, so choose your route carefully. 

If you find yourself in a spot where there is no way to 
squeeze between two objects, shoot down an airplane. That 
will cause your tank to automatically miniaturize and enable 
you to squeeze through. But be careful. Your tank will return 
to normal size without warning just before the next airplane 
starts to cross the field. The time varies. Your tank could re¬ 
main small for a long time or jump right back to normal size. 
As a general rule, when your tank is miniaturized, don't stay 
close to obstacles any longer than you have to. 

Collision detection requires an overlap between objects, so 
you can get right next to mines without getting destroyed. 

Even without being miniaturized, your tank can squeeze 
through many tight spots if you are careful. 

ML, BASIC, VBI, and Characters 

The program uses a combination of machine language and 
BASIC to set up the screen, scroll the screen, and move the 
players. A vertical blank interrupt routine scrolls the playfield 
vertically, and redefined characters are used for the battlefield 
objects. A machine language subroutine sets up and moves the 
players, detects collisions, and makes the explosions appear on 
the screen. BASIC sets up the battlefields by POKEing charac¬ 
ters into screen memory at random locations. BASIC also dis¬ 
plays the score and keeps track of the number of tanks left 
and the number of playfields traversed. 

The main machine language routine is stored as a string 
of characters labeled E$. This machine language routine is 
relocatable so that it may be stored in string form. Type 
PRINT E$ and you will see the characters. 

The rest of the machine language code, located on page 6 
of memory, is not relocatable. It includes the vertical blank 
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and explosion subroutines, as well as the data for the player 
shapes. The main program uses absolute addressing to access 
this player data; thus this data must reside on page 6 in its 
proper place. Jump-to-subroutine commands are also used by 
the main program to access these page 6 routines. These 
routines must always stay at their proper places or they won't 
be found by the main program. 

There are two USR commands in the program. The one at 
line 350 jumps to a machine language subroutine that clears 
the screen memory area between playfields. BASIC was too 
slow to perform this function without delaying the game 
considerably, so the machine language routine was developed 
to clear the display memory area quickly and efficiently. 

The second USR command jumps to the main machine 
language program that moves the players on the screen. This 
routine also makes all the sounds of the tanks and checks for 
possible collisions between tanks, missiles, planes, and battle¬ 
field objects. When a collision is detected, the main program 
executes a jump-to-subroutine command to the explosion rou¬ 
tine on page 6 of memory. 

When you finish a battlefield or your tank is destroyed, the 
main machine language program returns to BASIC. Then BASIC 
will either set up a new battlefield (if one was successfully 
completed) or put you back on the same one for another try. 

Tank 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HD 10 REM TANK 
HA 20 DIM E$ < 1 1 1 7) 

HE 30 POKE 106, PEEK ( 106)-16: GRAPHICS 18:SETCOL 
OR 4,12,2:SETCOLOR 2,12,2 
EL 40 POSITION 8,5:7 #6 ; " TANK ” : SETCOLOR 1,0,12 
:SETCOLOR 3,3,6 

CN 50 RAMTOP = PEEK(106) :DLLO = PEEK(560) :DLHI=PEE 
K(561):DMLO=PEEK(88):DMHI=PEEK(89):DL=DL 
L0+256*DLHI 

CO 60 OCHBASE=256*PEEK(756) :CHBASE = RAMTOP*256 
10 70 FOR 1=0 TO 511: POKE CHBASE+I , PEEK (OCHBAS 
E+I):NEXT I 

MN 80 FOR 1=0 TO 63: READ D:POKE CHBASE + 8+I , D: N 
EXT I:POKE 756„RAMTOP 
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CM 90 

06 100 

EC 1 10 
MG 120 

IC 130 

NO 140 

OJ 150 

DM 160 

HP 170 

NP 180 

HL 190 

CH 200 

HN 210 
GF 300 

KK 310 
MH 325 
BG 330 

10 350 
KM 355 
MF 360 

HG 370 

YX 380 

AN 390 


DATA 2,201,48,73,74,74,74,49,2,25,100,20 
2,81,81,82,140,0,0,36,24,24,36,0,0,0,0,4 
0,16,40,0,0,0 

DATA 0,0,0, 16,56, 16,0,0,0,56,68,84,68,5 
6,0,0,255, 129, 129, 153, 153, 129, 129,255, 1 
6,40,84,170,84,40,16,0 
REM PAGE 6 ROUTINES 

FOR 1=1539 TO 1747:READ D:POKE I,D:NEXT 
I 

DATA 173,120,2,201,14,208,30,173,0,6,20 
1,50,240,23,206,2,6,208,18,169,2,141,2, 
6,206 

DATA 1,6,173,1,6,201,255,240,6,141,5,21 
2,76,98,228,238,0,6,169,15,141,1,6,141, 
5 

DATA 212,160,0,177,203,56,216,233,20,14 
5,203, 160, 1,177,203,233,0, 145,203,76,4 0 
,6,0,252,252 

DATA 120,120,124,124,126,127,126,124,12 
4,120,120,252,252,0,0,0,63,63,30,30,62, 
62,126,254,126 

DATA 62,62,30,30,63,63,0,0,0,16,16,16,5 
6,56, 186, 186,254,254,2 54,254,254,254,25 
4,254,130 

DATA 130,0,60,24,24,152,216,254,255,254 
,216,152,24,24,60,0,0,8,16,74,34,72,68, 
16,197 

DATA 16,4,162,20,69, 18,72, 18,8,0, 160, 18 
, 185, 144,6, 145,205, 136,208,248, 142,242, 
6,162,100 

DATA 160,255,136,208,253,142,6,210,202, 
208,245, 169, 1 , 141,30,208, 169,0, 160, 18, 1 
45,205,136,208,251 

DATA 173,242,6,133,205,238,250,6,96 

PMBASE=<RAMTOP+8)>256:VP0=PMBASE+1024:S 

M = PMBASE+-239 

GOSUB 600 

REM RESTART HERE 

POKE 1786,0:DIF=2:POKE 1777,DIF:POKE 17 
75, DIF:E = 2:DEN=15:FN=1:TN = 2 

CLEAR = USR(ADR(E$) , 256* <RAMTOP+- 4) ) 

REM SET UP PLAYFI ELD 

E = E+1: IF E = 8 THEN E = 3: DEN = 20: DIF = D J.F-1 : 
IF DIF < 0 THEN DIF = 0 

TN=TN+1:DEN=DEN+5:POKE 1777,DIF:POKE 17 
75,DIF 

FOR 1=2 TO 50:POKE SM-I120,68:POKE SM-I 
*20+1,68:NEXT I 

FOR 1=0 TO DEN:SOUND 0,240,10,9:R=INT(R 
ND (0) *950) +-40: R 1 = 1 NT (RND (0) *950) +-40 
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KD 400 POKE SM-R ,E+192:POKE SM-R1,E + 65:SOUND 0 
,0,0,0s NEXT I 

PO410 FOR 1=1 TO 15:R=INT<RND(0)*950)+40:SOUN 
D 1,12*I,10,10:POKE SM-R,l:POKE SM-R+1, 

2:NE X T I:SOUND 1,0,0,0 

El 420 POKE SM-15,50: POKE SM- 1 6,33 : POKE SM-14, 
52:POKE SM-17,52:POKE SM-18,51 
PF 430 POKE SM-1099,38: POKE SM-1 098 , 4 1 : POKE SM 
-1097,46:POKE SM-1096,41:POKE SM-1095,5 
1:POKE SM—1094,40 

CO 440 POSITION 1,1:7 #6; M C24 SPACES) " s REM 23 S 
PACES 

JL 450 POSITION 1,1:7 #6; "SCORE " ; 1 0 * PEEK ( 1 786 
)sPOSITION 14,1:7 #6;"TANKS " ; TN 
BO 500 D = USR (ADR ( E* ) +24 , DL + 7 , VP0, PMBASE , SM-239 
) 

HO 5 1 0 SOUND 2,0,0,0: SOUND 3,0,0,0 s SOUND 1,0,0 
,0:SOUND 0,0,0,0 
NS 520 IF PEEK ( 1536) =50 THEN 550 
BK 530 TN = TN— 1 : IF TN = 0 THEN 570 

AS 540 POSITION 14,1:7 #6; "TANKS " ; TN; " " : GOTO 

• • • m 

500 

CD 550 FN = FN+1 : POSITION 14,1:? #6;" FIELD " ; FN 
:IF FN=16 THEN 595 

II 560 POSITION 1,1:? #6;"SCORE " ; 1 0 * PEEK < 1 786 
):BOTO 350 

DP 570 POSITION 14,1:? #6; "PRESS START" 

Cl 580 IF PEEK (53279) < >6 THEN 580 
GN 590 GOTO 330 

Fft 595 POSITION 15,1:? #6;"A WINNER":GOTO 580 
AN 600 FOR 1 = 1 TO 1117:READ D:E$(I)=CHR$<D) :NE 
XT I 

LB 6 1 0 DATA 104,104,133,204,104,133,203, 169,0, 
162,14,160,0,145,203,136,208,251,230,20 
4,202,208,246,96 

LL 620 DATA 104,104,133,204,104,133,203,104,13 
3,206,104,133,205,104,141,255,6,104,104 
,160,1,145,203,104,160 

IL 630 DATA 0, 145,203, 169,0, 141,5,212, 141,0,6, 
141,1,6, 169,2, 141,2,6, 160.3, 162,6, 169.7 
,32,92,228 

EO 640 DATA 169,0, 141, 12,208, 169,62, 141,47,2,1 
69,3,141,29,208,173,255,6,141,7,212,169 
,1,141,8 

HE 6 50 DATA 208, 141,9,208,141.10,208,141,11,20 
8,169,116,141,192,2,169,38,141,193,2,16 
9,52,141,194,2 

DO 660 DATA 169,52,141,195,2,72, 104,169,0,133, 
205,133,207,141,144,6,165,206,56,233,1, 

133,208,169,0 
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ftK 670 DATA 14 1,249,6, 141,1,208, 141,2,208,141, 
244,6,141,252,6,141,247,6,141,253,6,169 
, 255, 141,243 

DN 680 DATA 6, 141,3,208, 14 1,30,208, 169,6, 141,2 
37,6,160,0,169,0,145,207,145,205,136,20 
8,249,230,206 

LI 69 0 DATA 238, 144,6, 173, 144,6,201,4,208,233, 

198.206.198.206.198.206.198.206.169.201 
,133,205,169,100,141 

KL 7 00 DATA 254,6, 14 1,0,208, 173, 120,2,201,15,2 
40,25,169,255,141,0,210,169,40,141,1,21 
0,173,120,2 

FP 710 DATA 20 1,7,240, 11,20 1,11,240,43,201,14, 
240,78,24,144,70,169,1,141,253,6,160,18 
, 185,74,6 

ND 720 DATA 145,205, 136,208,24 8, 173,254,6,201, 
190,240,231,238,254,6,173,254,6,141,0,2 
08,24,144,36,240 

LI 7 30 DATA 185, 169,2, 14 1,253,6, 160, 18, 185,92, 
6,145,205,136,208,248,173,254,6,201,50, 
240,195,206,254 

DN 740 DATA 6, 173,254,6, 14 1,0,208,24, 144,0,24, 
144,19,240,215,169,3,141,253,6,160,19,1 
85,110,6 

LA 750 DATA 145,205, 136,208,248,240,0, 173,252, 
6,201,0,240,12,201,1,240,69,201,2,240,8 

3.201.3.240 

HB 760 DATA 59, 173, 132,2,20 1,0,240,4,208,88,24 
0,207, 173,253,6, 14 1,252,6,169,50, 141 , 14 

3.6.141.4 

AA 770 DATA 210, 169,200, 14 1,5,210, 173,254,6,24 
,109,237,6,141,251,6,141,4,208,165,205, 
24,105,9,133 

AP 780 DATA 207, 169,3, 160,0, 145,207,24,144, 178 
,240,41,238,251,6,238,251,6,173,251,6,1 

41.4.208.201 

FB 7 90 DATA 192, 16,49,48,59,206,251,6,206,251 , 

6.173.251.6.141.4.208.201.60.48.31.16.4 
1,24,144 

06 800 DATA 85,24 0, 163, 16 9,0, 160,0, 145,207, 169 
,3,198,207,198,207,198,207,145,207,165, 
207,201,42,240,2 

DM 810 DATA 208, 12, 169,0, 160,0, 145,207, 141,252 
,6,24,144,47,173,8,208,201,2,16,4,48,38 
,240,207 

NA 820 DATA 169,0,160,0, 145,207,141,252,6, 169, 
47,141,7,210,169,136,141,6,210,173,8,20 

8.201.3.240 


70 



Chapter 2 


NA 830 DATA 13.201,5,240,36,201,9,240,48,208,0 
,24,144,67,166,205,173,246,6,133,205,23 
0,206,169,0 

BF 840 DATA 14 1,8,208,169,3, 141,237,6,32,163,6 
,198,206,24,144,38,230,206,230,206,166, 
205,32,163,6 

LH 850 DATA 198,206,198,206,24,144,95,230,206, 
230,206,230,206,166,205,32,163,6,198,20 

6.198.206.198.206.24 

PE 860 DATA 144,96,240, 150, 144,94, 173,247,6,41 
,1,208,66,173,10,210,201,1,240,2,208,11 

2.173.10.210 

NK 870 DATA 201,100,16,2,48, 103,238,247,6,230, 
206,166,205,169,1,141,8,208,169,6,141,2 
37,6,173,10 

EB 880 DATA 210,201,30,48,249, 133,205, 141,246, 
6,160,13,185,129,6,145,205,136,208,248, 

134.205.198.206.24 

LJ 890 DATA 144,57,144,85,174,249,6,232,224,22 
5,176,13,142,249,6,142,1,208,24,144,38, 
240,160,144,127 

BN 900 DATA 206,247,6, 166,205, 173,246,6, 133,20 
5,230,206,169,0,141,249,6,141,1,208,141 
,246,6,160,17 

PP910 DATA 145,205, 136,208,251,134,205,198,20 
6,234,173,240,6,201,0,208,24,173,241,6, 
141,240,6,173,247 

FH 920 DATA 6,41,2,208,55,173, 10,210,201,2,240 
,10,208,79,144,63,206,240,6,24,144,71,1 

73.10.210 

EH 930 DATA 201,125,16,2,48,62,238,247,6,238,2 
47,6,230,206,230,206.160,18,185,74,6,14 
5,205,136,208 

NN 940 DATA 248, 198,206,198,206,24,144,35,240, 
142, 174,244,6,232,224,230, 176, 11, 142,24 

4.6.142.2.208.24 

KE 950 DATA 144, 16, 144, 114, 169,0, 141,244,6, 141 
,2,208,206,247,6,206,247,6,173,238,6,20 
1,0,208,22 

EN 960 DATA 173,239,6,141,238,6, 173,247,6,41,4 
,208,63,173,10,210,201,3,240,8,208,91,2 
06,238,6 

HI 970 DATA 24,144,85, 173, 10,210,201,225, 16,2, 
48,76,238,247,6,238,247,6,238,247,6,238 
,247,6,230 

LO 980 DATA 206,230,206,230,206, 160,18,185,92, 
6,145,205,136,208,248,198,206,198,206,1 
98,206,24,144,39,240 
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MH 990 DATA 138,174,243,6,202,224,40, 144,9, 142 
,243,6,142,3,208,24,144,20,169,225,141, 
243,6,141,3 

HH 1000 DATA 208,206,247,6,206,247,6*206,247,6 
,206,247,6,173,12,208,201,0,208,23,173 
,4,208,201,0 

BO 1010 DATA 208, 16,173,14,208,201,0,208,9,173 
,15,208,201,0,208,2,240,36,169,207,141 
,3,210,169,102 

LC 1020 DATA 141,2,210, 166,205,32,163,6,162,0, 
160,255,136,208,253,202,208,248,169,0, 
141,3,210,206,250 

HC 1030 DATA 6,96,240, 151,162,7, 160,255, 136,20 
8,253,202,208,248,169,0,141,8,210,238, 
143,6,173,143,6 

BN 1040 DATA 141,4,210,160,255,136,208,253, 173 
,143,6,201,255,208,5,169,0,141,5,210,1 
69,0,141,1,210 

MO 1050 DATA 141,7,210,173,0,6,201,50,240,4,16 
9,0,240,194,96 

BC1100 REM DISPLAY LIST DATA 

JP1110 FOR 1=0 TO 21s READ DsPOKE DL+I,D:NEXT 
I 

EJ 1120 POKE DL-t-8, PMBASE/256: POKE DL + 4,DMLO + 20 
sPOKE DL+5,DMHI:POKE DL+22,DLLO:POKE D 
L+23,DLHI:RETURN 

DM1130 DATA 112,112,112,66,0,0,103,0,0,39,39, 
39,39,39,39,39,39,39,39,39,7,65 
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Dots 

Eric Saper 


"Dots" is a computer version of the popular pencil-and- 
paper strategy game that kids play. It's designed for two 
players; joysticks are required. 

If you haven't played dots before, you will probably think 
there isn't much to the game. The rules are few and simple. 
Two players take turns drawing horizontal or vertical lines be¬ 
tween two adjacent dots on the playing field. The object of the 
game is to close off more boxes than your opponent. When 
you close a box, it's identified with your color. Sound simple? 
It is. But there is a lot of strategy involved. Toward the end of 
the game, a wrong move may cost you the game. 

You have to be careful not to draw the third of four lines 
needed to complete a particular box, because your opponent 
can then win that box by drawing the final line. Sooner or 
later, you will have to give away boxes because there will be 
no more free space available. 

Whenever a player closes a box, he goes again. That 
makes it possible to win several boxes in one turn. Toward the 
end of the game, when there are no free spaces left, it's im¬ 
portant to choose lines that will give your opponent the fewest 
boxes. But you must be careful, because giving the fewest is 
not necessarily the best. 

How Big? 

The program requires about 8K to load and from 10K to 12K 
to run, depending on the dimensions of the playing field. It 
also requires two joysticks. 

When you run the program, you will be asked to supply 
the horizontal and vertical dimensions of the playing field. 

The smallest either dimension can be is 5; the largest is 20. A 
5X5 board (16 boxes) will take only a few minutes to play, 
while a 20 X 20 board (361 boxes) may require an hour or 
two. A good-sized board is 10 X 10 (81 boxes) or 12 X 12 
(121 boxes). The dimensions do not have to be the same, al¬ 
though it is usually preferred. 

After dimensions have been specified, the program draws 
the board and puts a text window at the bottom of the screen. 
The information in the window gives each player's score and 
the number of remaining boxes. An asterisk will indicate each 
player's turn. 
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Assume you're player 1 and that it's your turn. Press your 
fire button; the text window disappears and the screen colors 
change. One of the dots will be white; that's the cursor dot. 
Push your joystick and the cursor dot will move left-right or 
up-down. 

Move the cursor to one end of the line you want to draw. 
Press your fire button and the cursor will turn red, indicating 
that you are ready to make your move. With the cursor red, 
push your joystick in the direction you wish the line to be 
drawn, relative to the cursor. If you decide not to draw from 
that point, press your button again and the cursor will turn 
white once more. 

When you draw the line, a sound will be heard. If you try 
to draw your line over another line or off the playing field, a 
buzzer will sound and you can try again. When you close a 
box, it will fill in with your color. Player l's boxes will be 
white, while player 2's boxes will be red. 

After every move, the text window will reappear. Remem¬ 
ber, if you have just gained a box, it will still be your turn. 

At the end of the game the final scores are displayed, 
with flashing stars surrounding the winner's score. If it is a tie 
game, both scores will be surrounded. If you want to play 
again, press the START button. 

Dots 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

NE 10 ? “ (CLEAR} “ : POSITION 16,8s? "DOTS" : POSIT 

ION 2,14s? “WHAT ARE THE MAXIMUM DIMENSI 
0NS(2 TAB} <5,5) — <20,20) “; s INPUT XM, YM 
BH 20 IF X M < 5 OR XM>20 OR YM<5 OR YM>20 THEN 1 
0 

GH 30 DIM A$ (4 ) , P < XM, YM) , S ( 1 ) 

PG 40 FOR 1=0 TO X M s FOR J = 0 TO YM s P < I , J ) = 0 s NE X 

T J s NEXT I 

EH 50 X0=1 NT <80/ < XM+1 ) ) s Y0=INT (48/ ( YM+1 ) ) s T0= ( 
XM—1)*(YM-1) 

EB 60 XS=(80-XM*X0 + X0) /2-X0-1 :YS= (48-YM*Y0 + Y0) 

/2 — Y0—1 

AH 70 GRAPHICS 21:SETCOLOR 0,0,0: SETCOLOR 1,0, 
14s SETCOLOR 4,7,4 

HI 80 COLOR IsFOR X = 1 TO XMsFOR Y= 1 TO YM 

DK 90 PLOT X ♦ X0 + XS, Y*Y0 + YS: NEXT Y : NEXT X 

HK 100 COLOR 2:PLOT X0 + XS,Y0 + YS:COLOR lsX=0:Y = 
0s S = 0s T = 0s S(0)=0s S <1)=0 
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KO 1 10 GRAPHICS 37: POKE 752, 1 : IF S = 0 THEN ? " * 

PLAYER 1 HAS " ;S<0) :? " PLAYER 2 HAS ” 

S <1) :GOTO 130 
NB120 ? " PLAYER 1 HAS " ; S < 0 > : ? " 1PLAYER 2 HA 

S ’■ ; S < 1 ) 

GD 130 ? :? "BOXES REMAINING = ";T0-T; 

JC 135 POKE 77,0 

ID 140 IF STR I G < S ) = 1 THEN 140 

IH 145 IF STR I G ( S ) =0 THEN 145 

EO 150 ? : GRAPH ICS 53:SETCOLOR 0,0,0 : SETCOLOR 

1,0,14:SETCOLOR 2,3,8:SETCOLOR 4,7,4 
AO 155 COLOR 2:PLOT (X + 1)*X0 + XS, (Y+DIY0 + YS 
PF 160 M = STICK <S> : X 1 =X : Y1=Y 
IS 170 IF STR I G ( S ) =0 THEN 330 
BG 180 IF M< >14 THEN 210 

DO 190 Y = Y—1 : IF Y<0 THEN Y = YM-1 

66 200 GOTO 290 

OF 210 IF M< >7 THEN 240 


DD 

220 

X = X + 1 

: IF 

X > X M — 1 THEN X = 0 

GJ 

230 

GOTO 

290 


BI 

240 

I F H< 

>13 

THEN 270 

DL 

250 

Y = Y+1 

2 IF 

Y >YM —1 THEN Y = 0 

GH 

260 

GOTO 

290 


BH 

270 

IF M< 

>11 

THEN 160 

DJ 

280 

X = X-1 

: IF 

X<0 THEN X = X M—1 

CL 

290 

SOUND 

0, 

100,10,10 


6H 300 COLOR 1 : PLOT < X 1 + 1 ) * X 0 + X S , < Y 1 + 1 ) * Y0 +YS 

AH 3 1 0 COLOR 2 : PLOT < X + 1 > * X0 +X S , < Y+ 1 > * Y0 + YS 

AC 320 SOUND 0,0,0,0: FOR 1 = 1 TO 30: NEXT I 

IE 32 1 IF STR I G < S ) =0 THEN 321 

6H 322 GOTO 160 

PC 330 SOUND 0,50,10,10 

AL 340 COLOR 3:PL0T < X + 1 ) * X 0 +X S , < Y + 1 ) * Y 0 +YS 
6F 350 SOUND 0,0,0,0 


IK 

360 

I 

F 

STR I 

G 

(S 

) 

= ! 

0 


THEN 

360 



PI 

370 

M 

— 

STICK 

( 

S) 

• 

m 

X 

= 

X 

1 2 Y = 

Y 1 



IH 

380 

I 

F 

STR I 

G 

( s 

) 

= 

0 


THEN 

3 10 



BH 

390 

I 

F 

M< >1 

4 

T 

H 

E 

N 


420 




DE 

400 

Y 

= 

Y — 1 : I 

F 

Y 

* 

< 

X 

0 


T 

HEN 

510 



FE 

4 1 0 

C 

= 

4 : GOT 

O 

5 

3 

0 







OL 

420 

I 

F 

M< >7 


THEN 


4 

50 




AH 

430 

X 

= 

X + l : I 

F 

X 

V 

/ 

X 

M 

— 

1 THEN 5 

1 

0 

FG 

440 

C 

— 

3s GOTO 

5 

3 

0 







BO 

450 

I 

F 

M< >1 

3 

T 

H 

E 

N 


480 




AO 

460 

Y 

= 

Y+l : I 

F 

Y 

> 

Y 

M 

— 

1 THEN 5 

1 

0 

FI 

470 

C 

= 

2:GOTO 

5 

3 

0 







BN 

480 

I 

F 

M < > 1 

1 

T 

H 

E 

N 


370 




DK 

490 

X 

= 

X - 1 : I 

F 

X 

✓ 

< 

% 

0 


T 

HEN 

510 



FB 

500 

C 


1 : GOT 

O 

5 

3 

0 
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ND 5 1 0 

GK 520 
HB 530 

AH 540 
KE 550 
DN 560 
HC 570 
PJ 580 
HG 590 

AF 600 
HJ 610 
PG 620 
LK 630 
CH 640 

EH 650 
DD 660 

FL 670 
CE 680 

FA 690 
CN 700 

JF 7 1 0 
LJ 720 
CF 730 

EP 740 
DF 750 

FJ 760 
CP 770 

FD 780 
DI 790 

JF 800 
BG 810 

KB 820 
HL 830 
NI 840 

FA 850 


SOUND 0,60, 12, 10:FOR 1 = 1 TO 200:NEXT Is 
SOUND 05,0,0,0 
GOTO 370 

A$=”0000":A$ (5-LEN (STR$ ( I NT < P ( X 1 „ Y 1 ) ) ) ) 

,4)=STR$(INT(P(X1,Y1))) 

IF A*<C,C>="1" THEN 510 
A$(C,C)="1":P(X1,Y1)=VAL(A$) 

IF C< 3 THEN C = 2 —C:GOT O 580 
C = 6 — C 

P(X,Y)=P(X,Y)+INT ( 10 y 'C + 0. 1) 

COLOR 1:PLOT (X1+1)1X0+XS,(Yl+1)IY0+YS: 
DRAWTO (X+1)*X0+XS,(Y+1)*Y0+YS 
FOR 1=100 TO 0 STEP -5 

SOUND 0,I,2,10:NEXT I:SOUND 0,0,0,0 
B=0:IF X=X1 THEN 720 
IF Y=0 THEN 670 

K=0:C=4:ZX=X1:ZY=Yi:GOSUB 810:ZX=X:ZY=Y 
:GOSUB 810:IF X1<X THEN C=3:GOTO 660 
C=1 

ZX=X1:ZY=Y1-1:GOSUB 810:IF K=3 THEN C=1 
:GOSUB 840 
IF Y=YM THEN 1030 

K=0:C=2:ZX=X1:ZY=Y1:GOSUB 810:ZX=X:ZY=Y 
:GOSUB 810:IF X1<X THEN C=3:GOTO 700 
C=1 

ZX=X1:ZY=Y1+1:GOSUB 810:IF K=3 THEN C=2 

:GOSUB 840 

GOTO 1030 

IF X = 0 THEN 760 

K = 0:C=1 : ZX = X1: ZY = Y1 :GOSUB 810: ZX=X: ZY = Y 
:GOSUB 810:IF Y1<Y THEN C=2:GOTO 750 
C = 4 

ZX=X1-1:ZY=Y1:GOSUB 810:IF K=3 THEN C=3 
:GOSUB 840 
IF X=XM THEN 1030 

K=0:C=3:ZX=X1:ZY=Y1:GOSUB B10:ZX=X:ZY=Y 
:GOSUB 810:IF Y1<Y THEN C=2:GOTO 790 
C = 4 

ZX=X1+1:ZY=Y1:G0SUB 810:IF K=3 THEN C=4 
:GOSUB 840 
GOTO 1030 

A$= ,, 0000" : A$ (5-LEN (STR$ ( INT (P ( ZX , ZY) ) ) ) 

, 4)=STR$(INT(P(ZX,ZY) ) ) 

IF A$<C,C>=”1" THEN K = K+1 
RETURN 

B=1:S(S>=S(S)+1:T=T+1:COLOR S+2:POKE 76 
5, S-i-2 

FOR 1=0 TO 200 STEP 10:SOUND 0,1,10,10: 
NEXT I 
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HO 860 FOR 1=200 TO 0 STEP -10:SOUND 0,1,10,10 
:NE X T I 

LD 870 ON C GOTO 880,910,940,970 
AD 880 IF X1<X THEN Z = Xl + l:GOTO 900 

OH 890 Z = X + 1 

LG 900 PX = Z * X0 + XS+ 1 : PY = Y*Y0 + YS+1 : PLOT PX,PY:PO 
SITION PX, (Y+1)*Y0 + YS-1:GOTO 1000 
AA910 IF X1<X THEN Z = Xl + l:GOTO 930 

OG 920 Z = X + 1 

GH 930 PX = Z*X0 + XS+1:PY= (Y+l ) *Y0 + YS+1 : PLOT PX,P 
Y:POSITION PX,(Y+2)*Y0+YS-1:GOTO 1000 
AJ 940 IF Y1 < Y THEN Z = Yl + l:GOTO 960 

OK 950 Z = Y+1 

LH 960 PX = X*X0 + XS+1 s PY = Z t Y0 + YS+ 1 : PLOT PX, P Y: PO 
SITION PX,(Z+l)*Y0+YS-1:GOTO 1000 
AP 970 IF Y 1 < Y THEN Z = Y 1 1 s GOTO 990 

ON 980 Z = Y+1 

DI990 PX=(X + 1) >X0 + XS+1:PY = Z*Y0 + YS+1:PLOT PX,P 
Y:POSITION PX,(Z+l)IY0+YS-1 
KK 1000 XIO 18, #6,0,0, "S" : PLOT PX,PY:DRAWTO PX 
+X0-2,PY 

LJ 1010 IF T 0 —T = 0 THEN 1060 

KD 1020 RETURN 

HE 1030 IF B=1 THEN 110 

JJ 1040 S= NOT S 

JB 1050 GOTO 1 10 

IB 1060 GRAPHICS 18 

LC 1070 READ N, T 

DD 1080 IF N = -l THEN 1110 

OE 1090 SOUND 0,N,10,10:SOUND 1,N+2, 10, 10: SOUN 
D 2,N+4,10,10 

OA 1100 FOR 1 = 1 TO 20 *T : NE X T I : GOTO 1070 
KB 1110 SOUND 0,0,0,0: SOUND 1,0,0,0 : SOUND 2,0, 
0,0 

BH 1120 POSITION 3,1:7 #6;"final score is” 

AH 1130 POSITION 2,5:7 #6; “PLAYER 1 HAS " ; S (0) 

AN 1140 POSITION 2,8:7 «6; "PLAYER 2 HAS ";S<1) 

OK 1150 IF S(0)>=S(1) THEN P = 5: GOSUB 1220 
OH 1160 IF S(0)<=S<1> THEN P = 8:GOSUB 1220 
BO 1170 FOR 1 = 1 TO 50: IF PEEK (53279) =6 THEN 12 

10 

OB 1180 NEXT I : SETCOLOR 2,0,0 

CA 1190 FOR 1 = 1 TO 50: IF PEEK (53279) =6 THEN 12 

10 

CD 1200 NEXT I : SET COLOR 2,9,4:GOTO 1170 

JO 1210 CLR -.RESTORE 3130:GOTO 10 

DD 1220 POSITION 0,P-1:7 * A -- ” uKxmxammm’xmamm 
S2K2L2” : POSITION 0,P:7 #6; ,, Ka” 
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6H 1230 POSITION 19,Ps? #6; "DEPOSITION 0,P+1: 

? # 6 ; "gssmsuMsaBMMSMMMMMam" 

KH 1240 RETURN 

8E 2075 FOR 1 = 1 TO 300:NEXT I 

GC 3130 DATA 162,1,144,1,128, 1,144,2,128,1,162 
,3,81,3,-1,0 
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Reversi 

Jose R. Suarez 


"What's this?" you say. "Not another Reversi program!" 

Yes, it is—but this one features full-color graphics, playing 
chips that flip over right before your eyes, replay options, 
and a computer opponent that will truly make you think. 
The program requires 24K memory, 32K if you use a disk 
drive. 

"Reversi" is played on an 8 X 8 grid. The playing pieces are 
two-sided disks, black on one side and white on the other. Ini¬ 
tially, four pieces are placed on the four center squares, two 
showing black and two showing white, in an X pattern. Black 
starts, and the object is to capture as many of the other play¬ 
er's pieces as possible. 

You do this by bracketing one or more of your opponent's 
chips with your chips, and then flipping them over to your 
color. This can be done in any direction—vertically, hori¬ 
zontally, or diagonally. 

A move is legal only if it flips one or more of the other 
player's pieces. If you have no legal moves, you must pass. 

The game ends when the board is full or when no more 
moves are possible. At that time, the player with the most 
pieces wins. 

Joysticks or Keyboard? 

Before displaying the game board, the program asks if you 
want to use joysticks or the keyboard to enter moves. Joysticks 
(plugged into ports 1 and 2) are the better choice, especially 
for a two-player game. But for keyboard fans, traditional row- 
column entry is also available. 

If you opt for the keyboard, enter a letter and a number 
for each move. You may enter either the letter or the number 
first; the computer will figure out what you mean. To pass, 
enter the letter P instead of coordinates. 

With joysticks, move the cross-shaped cursor to the 
square you want to capture; then press the trigger. To pass, 
move the cursor over the word PASS (at the right side of the 
board) and press the trigger. The black pieces are always 
moved by the joystick in port 1; the white pieces are always 
moved by the stick in port 2. Remember this when playing 
against the computer. 
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One or Two Players 

Once you select your preferred entry method, there is a short 
wait while the computer initializes the game board. When the 
board appears, press SELECT to choose a one- or two-player 
game, and use the OPTION key to toggle the color of the 
computer's pieces. Press START to begin the game. 

The computer acts as referee and piece-flipper whether 
you play against it or against another player. It does not allow 
illegal moves or passes. After a game is completed, the totals 
are displayed, and the winner declared. 

You may then review the game just played by engaging 
one of the two replay options. AUTOMATIC REPLAY shows 
you the game over, move by move; just sit back and watch as 
it develops. MANUAL REPLAY does much the same thing, 
except that after each move the computer will pause until you 
press the trigger (if using joysticks) or a key (if using the key¬ 
board). To choose a replay option, press SELECT to cycle 
through the choices until you reach the option you want. 

Then press START. These functions should help you locate 
poor moves and improve your game; you can review the game 
as many times as you desire. 

Setting Things Up 

The program begins with a jump to line 14000. Lines 14000- 
14030 initialize the important variables and tie together all the 
initialization subroutines. Lines 9000-9110 are the title dis¬ 
play, and lines 9500-9600 display the 10- or 14-second board- 
preparation message. 

Lines 1000-1140 then move and modify the character set. 
Take a look at the expression in line 1005. Variable FAC is set 
to 0 if you chose the keyboard and to 255 if you chose joy¬ 
sticks. This means that the character set is moved in comple¬ 
mentary form (inverse video) if you choose joysticks. This 
unorthodox font permits some interesting and pleasing graphics. 

If joysticks are selected, then player/missile graphics are 
handled next at lines 2500-2540. All four players and one 
missile are used. Player 0 is the cursor. Player 1 is the word 
PASS mapped directly from the character generator. Player 2 
is the blue field. Player 3 and missile 3 border the playfield so 
that no green background shows except on the board. 

The board is sent to the screen by lines 15000-15100. All 
the characters embedded in those lines were redefined with 
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box-making control characters normally unavailable in 
GRAPHICS 1 and 2. They form a nice grid when printed out. 
Lines 15060-15070 print the coordinate system for the key¬ 
board user. 

With initialization completed, control passes to lines 
8540-8670 where the console keys are read and the selected 
options displayed. Once the player presses START, the main 
loop at lines 8000-8430 takes over. This master loop has con¬ 
trol over each full game. It calls the scanning and piece¬ 
flipping module (1600-1720); the large network of 
computer-intelligence subroutines (3300-5420); the animation 
subroutine (6990-6995); score keeping and move storing 
(3000-3150); illegal-move correction (7100-7130); and mes¬ 
sage printing (7200-7220). 

Artificial Intelligence 

You will find that the computer is a challenging opponent. 

The game board is kept internally as array TBL. The computer 
assigns a strategic value to each square on the board, and it 
keeps those values in array STR. They are not static values, 
however, for they change as the game progresses. The value 
of a prospective move is based largely on the dynamic value 
of the square, and (to a much smaller degree) on the number 
of pieces flipped. Corners and edges have the highest values, 
while the adjacent squares forming a bridge to these have the 
lowest values. 

The computer is very careful when moves are made on 
the edges, calling special subroutines to handle them. The 
value of the number of pieces flipped jumps drastically during 
the last few moves of the game—and that's when many games 
are won or lost. 

Flipping the pieces smoothly adds to the attractiveness of 
the display and is quite simply done. Take a look at line 
15010. ANIM$ is filled with a series of control characters. 
These characters have been redefined so that each is a frame 
of the flipping action. The characters so reshaped are now 
ellipsoids with progressively shorter minor axes—two of them 
are just horizontal lines. When these characters are printed out 
rapidly at the same screen location, they make a little movie of 
a flipping chip. Color switching is accomplished by using the 
inverse-video incarnations of the same characters. 
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Reversi 

For error-free program entry, read "The Automatic Proofreader " in Chapter 1 before typing 
in this program. 

IP 10 GOTO 14000 

PN 1000 POKE 106,PEEK(106) -C4:GRAPHICS 17:POKE 
53774,112:POKE 16,64:G0SUB 9500:1=(PE 
EK(106)+C2)*256 

OD 1005 FOR J = 0 TO 511: POKE I + J , ABS ( FAC-PEEK < 5 
7344+J)):NEXT J 

ED 1010 SET=I :GOSUB 9600:TRAP 1130:RESTORE 101 
00 

El 1020 READ LIST 1 , LIST2: FOR J = 0 TO C7:BYTE = PE 
EK(LIST1+J+57344):POKE LIST2+J+I,BYTE: 
NEXT J:GOTO 1020 

HH 1130 RESTORE 10110:FOR J = 0 TO C- 7: READ BYTE: 

POKE 80+J+I,BYTE:READ BYTE:POKE C8+J+I 
,BYTE:POKE 480+J+I,O:NEXT J 
OF 1140 FOR K = C 1 TO C5: READ LISTl:FOR J=0 TO C 
7:READ BYTE:POKE LI ST 1+J +I , BYTE:NEXT J 
:NEXT K:RETURN 

JC 1600 FLIP = 0:0FF = C9* (N0W = C1 ) : FOR VD = -C1 TO C 
1 :F OR HD = -C1 TO Cl: IF VD = 0 AND HD = 0 TH 
EN NEXT HD 

GO 1610 TRAP 1720: X = J: Y = I : DX = X: DY = Y: CF L = O 
GC 1630 IF TBL < Y + VD, X+HD) =OTHER THEN CFL = C1: X = 
X+HD:Y=Y+VD:GOTO 1630 

LE 1640 TRAP 40000: IF TBL (Y + VD, X+HD) < >NDW OR C 
FL=0 THEN 1720 

Lli 1670 IF PASS = C 1 THEN FLIP = C1:F'0P : POP : RETU 

RN 

CH 16 80 DX = DX+HD: DY = DY + VD : TBL ( DY , DX ) = NOW: FOR L 
OOP = Cl+OF F TO C9 + 0FF:K = C1/C1/C1 
IF 1690 POSITION DX*C2+C2, DY*C2 + C2: ? #S;ANIM$< 
LOOP,LOOP):NEXT LOOP:SOUND 0,60,12,08: 
FL I P = FLI F' + C 1 

FH 1700 SOUND 0,0,0,0: IF DXOX OR DYOY THEN 1 
680 

HC 1720 NEXT HD: NEXT V D : RETURN 

NL 17 4 0 FOR I = C 2 TO 16 STEP C2:POSITION C2,I:7 

AN 1 7 50 NOW = C l:0THER = C2:PLl$="{J}black(, Imove 
CZ3- 11 : PL2$=" “ 

GM 1752 RESTORE 10000:FOR 1=0 TO C3:FOR J=0 TO 

C3: READ K:STR < I , J)=K:STR <C7-I , J ) =K:ST 
R(I,C7 — J)=K:STR< C 7 — I,C7 — J)=K 
EK 1754 TBL ( I , J ) =0: TBL ( C7-I ,J)=0: TBL ( I , C7—J ) = 0 
:TBL (C7—I ,C7 — J) =0:NEXT J:NEXT I:H0R = C4 
:VER=C4 
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LP 1760 
KH 1770 
IL 2000 

HP 2500 

ND 25 10 
EG 2520 

NL 2530 
JF 2540 

KF 2600 

DF 26 10 
GG 2630 

FA 2640 

MF 2650 
DF 2660 
HP 2670 
OE 3000 

JH 3010 
CA 314 5 

BJ 3 150 
KK 3200 

GD 3203 

CM 3205 

JD 3210 
AE 32 12 

PA 32 1 4 

NB 32 16 


POSITION 08 , C8 : ? #S ; " vHI ESC J 3 " : POS I T I ON 
08 , 10s ? # S ; " {“: BSCR = C2:WSCR = C2 
TBL(C3, C3) =OTHER:TBL (C4,C4) =OTHER:TBL ( 
C3 5 C4) =NOW:TBL <04,C3> =NOW:RETURN 
RESTORE 10200:FOR 1=0 TO ClsFOR J=C5 T 
O 15:READ K:DELTA(J,I>=K:NEXT J:NEXT I 
: RETURN 

F’MBASE = PEEK ( 106) —C8: POKE 54279,PMBASE: 
POKE 53277,03:P0=PMBASE*256+512:P1=P0+ 
128: P2 = P1 4-128: P3 = P2+128 


MIS = P0-128:POKE 5 59,46: K = 39: POKE 62 3,C 
2:RESTORE 2530 

FOR I=C1 TO C4:READ LIST1:F0R J=0 TO S 
:POKE J+Pl+K,PEEK(57344+LIST1+J) : NE X T 
J:K=K+C7:NEXT I:POKE 53258,01 
DATA 384,264,408,408 

FOR 1=38 TO 69:POKE P2+I y 255:NEXT I:FO 
R 1=0 TO 119:POKE P3+I,255:POKE MIS+I, 
192:NEXT I:POKE 53260,192:RETURN 
FLIP=0:FOR VD=-C1 TO C1:F0R HD=-C1 TO 
01:IF VD=0 AND HD=0 THEN NEXT HD 
TRAP 2650:X = J:Y=I:FL=D:CFL=FL 
IF TBL(Y+VD,X+HD)=OTHER THEN X=X+HD:Y= 
Y + VD:FL = FL + C1 : GOSUB 266 0:GOTO 263 0 
TRAP 40000:IF TBL(Y+VD,X+HD)=NOW THEN 
FLIP=FLIP+FL:IF CFL THEN DFL=Ci 
NEXT HD:NEXT VD:RETURN 
IF STR<Y,X)=-200 THEN CFL=C1 
RETURN 


SFL = 0: IF NO W = C1 THEN BSCR = BSCR + FLIP + C1 
:WSCR=WSCR-FLIP:GOTO 3145 
WSCR=WSCR+FLIP+C1:BSCR=BSCR-FLIP 
IF BSCR=0 OR WSCR=0 OR BS0R+WSCR=64 TH 
EN SFL=C2 

GAME (M>=I+J/C10:1 V I = I V 1 + C1 : RETURN 
POSITION 0,23:7 #S; M | 

C3 " ; 


EVflLUftTING PftSS 


FLIP = 0: FOR 1=0 TO C7-.FOR J = 0 TO C7:IF 

TBL( I , J ) =0 THEN GOSUB 1600 

IF F LIP > O THEN POP :POP :PASS = 0:GOSUB 

7220:GOSUB 3220:GOTO MAINLOOP 

NEXT J:NE X T I:PASS = 0:GOSUB 7220 

POKE 705,42: L I N E $ = " T8 SPftCE5>l -FT--L- ” : I 

F NOW=C1 THEN LINE$="C8 SPACESTpass 

DF = C10:GOSUB 7200: GAME <M> = -C 1 :M = M + C1:S 


FL = SFL+C1 :H O R = C 4:V E R = C 4 :POKE 705, 144: I 
F SFL=C2 THEN 8500 
GOTO 8400 


83 



Chapter 2 


DG 3220 


NC 3230 
AB 3300 


CM 3400 
BN 3500 
LB 3510 

LJ 3512 
NO 3515 

LM 3520 
Cl 3525 

KL 3530 
II 3601 
LN 3606 
JM 3610 
KD 3617 
NB 3660 
NI 3667 
IP 3671 
ME 3676 
MD 3700 

NK 3710 

KC 3720 

JG 3730 
NK 3750 

PL 3760 

KJ 3770 

JL 3780 
MD 3800 

IC 3810 

GE 3820 

GL 3830 

KP 3840 


L I NE$ = " C 3 SPACES} P33T C PJ> I rSDEK” : IF 

NOW=C1 THEN LINE$="C 3 SPACES}youC,>mu 
st { , 3-play" 

DF=C12:GOSUB 7200:RETURN 

FLIP=0:MAX=—210:FOR 1=0 TO C7:FOR J=0 
TO C7:IF TBLU, J)=0 THEN GOSUB 2600:GO 
SUB 3500 

NEXT J:NEXT I:RETURN 
IF FLIP=0 THEN RETURN 

IF STR ( I,J)=-70 OR STR( I , J )=45 THEN GO 
SUB 3600+1tC10+J 

IF BSCR+WSCR>59 THEN K=FLIP:GOTO 3520 

K=FLIP*C5+STR(I,J):IF DFL THEN DFL=0:I 

F STR<I,J)<>500 THEN K=-200 

IF K >MAX THEN MAX=K:H O R = J:VER=I 

IF K=MAX THEN IF RND<O><0.4 THEN HOR=J 

:VER=I 

RETURN 

X = C2:HD = C1:GOTO 37 00 
X = C5:HD = —C1:GOTO 3700 

Y = C2:VD=C1:GOTO 3750 

Y = C2:VD = C1:GOTO 3750 
Y=C5:VD=-C1:GOTO 3750 
Y=C5:VD = —C1:GOTO 3750 
X = C2 :HD = C1:GOTO 37 0 0 

X =C5:HD = -C1:GOTO 37 00 

IF TBL(I,X)=0 AND TBL < I, X+HD) =NOW THEN 
STR(I,J)=-70:RETURN 

TRAP 37-30: IF TBL<I,X>=NOW THEN X = X+HD: 
GOTO 3710 

TRAP 40000:IF TBL(I,X)=OTHER THEN STR< 
I,J)=-70:RETURN 
STR(I,J)=45:RETURN 

IF TBL(Y,J)=0 AND TBL(Y+VD,J)=NOW THEN 
STR(I,J)=—70:RETURN 

TRAP 3780:IF TBL<Y,J)=NOW THEN Y=Y+VD: 
GOTO 3760 

TRAP 40000:IF TBL(Y ? J)=OTHER THEN STR< 
I,J)=-70:RETURN 
STR(I,J)=45:RETURN 

IF VER+C2<C7 THEN IF STR(VER+C2,HQR)>0 
THEN STR(VER+C2,HOR)=-55 
IF VER — C2>0 THEN IF STR(VER-C2,HOR) >0 
THEN STR(VER-C2,HOR)=-55 

IF STR(VER+C1,HOR)=-55 THEN STR(VER+C1 
,HOR)=80:GOSUB 3850 

IF STR(VER-C1,HOR)=-55 THEN STR(VER-C1 

,HOR)=80:GOSUB 3870 

RETURN 
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PN 3850 TRAP 3860: IF TBL ( VER + C1 ? HOR) = 0 AND TBL 

( VER + C2,HOR)=0 AND TBL (VER + C3 ? HOR)=NOW 
THEN STR(VER+C1,HOR)=—55 
BG 3860 TRAP 40000: RETURN 

AJ 3870 TRAP 3880: IF TBL ( VER-C1 , HOR) = 0 AND TBL 

(VER-C2,HOR)=0 AND TBL(VER-C3,HOR)=NOW 
THEN STR(VER-Cl,HOR)=-55 
BI 3880 TRAP 40000: RETURN 

MA 3900 IF H0R + C2< C7 THEN IF STR (VER, HOR + C2) >0 
THEN STR ( VER ,H0R + C2)= — 55 
JO 39 10 IF H O R — C 2 > O THEN IF STR ( VER, H0R-C2 ) >0 
THEN STR(VER,HOR—C2)=-55 
GG 3920 IF STR (VER, HOR + C1 ) = — 55 THEN STR(VER,HO 

R+Cl)=80:GOSUB 3950 

GN 3930 IF STR < VER, HOR-C1 ) =-55 THEN STR(VER,HO 

R-C1)=80:GOSUB 3970 
LA 3940 RETURN 

PP 3950 TRAP 3960: IF TBL < VER , HOR + C 1 ) =0 AND TBL 
(VER,H0R+C2)=0 AND TBL(VER,HOR+C3)=NOW 
THEN STR(VER,HOR+Cl)=—55 

BH 3960 TRAP 40000: RETURN 

AL 3970 TRAP 3980: IF TBL ( VER, HOR-C 1 ) =0 AND TBL 
(VER,H0R-C2)=0 AND TBL(VER,H0R-C3)=NOW 
THEN STR(VER,HOR—Cl)=—55 
BJ 3980 TRAP 40000: RETURN 

AN 4000 IF HOR >0 AND HOR<C7 AND VER>0 AND VER< 
C7 THEN RETURN 

PO 4 0 10 IF H0R = 0 OR H0R = C7 THEN 4100 
DA 4 020 IF TBL (VER, HOR + Cl ) =NOW THEN HD = -Cl:GOT 
O 4600 

AK 4025 IF TBL ( VER, H0R-C1 ) =NOW THEN HD = C1:G0T0 

4600 

EJ 4030 K = STR (VER, HOR+Cl ) : IF K<500 AND K< >-70 
AND KO-55 THEN STR (VER, HOR + Cl ) =-K 
GE 4035 IF K = — 55 THEN STR (VER, HOR + Cl ) = — 60 
EO 4040 K = STR (VER, H0R-C1 ) s IF K<500 AND K< >-70 
AND KO-55 THEN STR ( VER , HOR-C 1 ) =-K 
GH 4045 IF K = — 5 5 THEN STR ( VER , HOR-C 1 ) =-60 
CK 4050 GOSUB 5110:RETURN 

FB 4 100 IF VER = 0 OR VER = C7 THEN K = 0:GOTO 4200 

DN4110 IF TBL ( VER + C 1 , HOR ) =NOW THEN VD = -C1:G0T 

O 4500 

BH4115 IF TBL (VER-C1 , HOR) =NOW THEN VD = C1:G0T0 

4500 

EJ 4 120 K = STR(VER + Cl,HOR) : IF KC500 AND K< >-70 
AND KO-55 THEN STR ( VER + C1 , HOR) =-K 
GE 4 125 IF K = — 5 5 THEN STR ( VER+C 1 , HOR ) =-60 
EO 4 130 K = STR ( VER-C1 , HOR) : IF K<500 AND KO-70 
AND KO-55 THEN STR ( VER-C1 , HOR) =-K 
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GH 4 135 
CH 4140 
NF 4200 

DN 4500 
KP 4510 

CK 4520 

EH 4540 

FD 4550 

DC 4560 

FG 4570 

CH 4600 
KH 46 10 

CP 4620 

EA 4640 

EL 4650 
DH 4660 
FP 4670 
KE 4800 

FD 48 10 

FE 4820 

AD 4830 

LA 4840 
GB 5000 
KH 50 10 

EN 5020 

KJ 5040 


IF K= —55 THEN STR (VER-C1 , HOR)= — 60 
GOSUB 5310:RETURN 

STR(VER,ABS(HOR-Cl))=K:STR(ABS(VER-C1) 

,HOR)=KsSTR(ABS <VER-C1 ) , ABS(HOR-Cl) )=K 
-30-2 00* (K = 3 0 0) :RETURN 
K=VER+VD:TRAP 4140 

IF TBL(K,HOR)=OTHER THEN K=K+VD:GOTO 4 
510 

TRAP 40000:IF TBL(K,HOR)<>0 THEN RETUR 
N 

Y = K + V D :TRAP 4570:IF TBL(Y,HOR)=0 THEN 
TRAP 40000:GOTO 4570 

IF TBL(Y,HOR)=NOW THEN Y=Y+VD:GOTO 455 
0 

TRAP 40000:IF TBL(Y,HOR)=OTHER THEN RE 
TURN 

STR(K,HOR)=500+100* (STR(K,HOR)< >500) :R 
ETURN 

K=HOR+HD:TRAP 4140 

IF TBL(VER,K)=OTHER THEN K=K+HD:GOTO 4 
610 

TRAP 40000:IF TBL<VER,K)<>0 THEN RETUR 
N 

Y=K+HD:TRAP 4670:IF TBL(VER,Y)=0 THEN 
TRAP 40000:GOTO 4670 

IF TBL (VER, Y)=NOW THEN Y = Y+HD:GOTO 465 
0 

TRAP 40000:IF TBL(VER,Y) =OTHER THEN RE 
TURN 

STR(VER,K)=500+100* (STR(VER,K)< >500) : R 
ETURN 

IF TBL (O,O)=NOW THEN X = 0:Y = 0:HD = C1 :VD = 
O:GOSUB 5000:X=0:Y=0:VD=C1:HD=0:GOSUB 
5000 

IF TBL(0,C7)=N0W THEN X=C7:Y=0:HD=-C1: 
VD=0:GOSUB 5000:X=C7:Y=0:VD=C1:HD=0:GO 
SUB 5000 

IF TBL(C7,O)=NOW THEN X=0:Y=C7:HD=C1:V 
D = 0:GOSUB 5000:X=0:Y=C7:VD=-C1:HD=0:GO 
SUB 5000 

IF TBL (C7,C7)=NOW THEN X=C7:Y = C7:HD = -C 
1:VD=0:GOSUB 5000:X=C7:Y=C7:VD=-C1:HD= 
O:GOSUB 5000 
RETURN 

DFL=0:TRAP 5040 

X = X+HD: Y = Y + VD: IF TBL(Y, X)00 THEN GOSU 
B 5050:GOT O 5010 

TRAP 40000:IF DFL=0 AND STR(Y„X)<>500 

THEN STR( Y, X )=400 

RETURN 
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KJ 5050 
KA 5060 
IJ 5070 

JH 5080 
KO 5090 
OA 5100 
KN 5 1 1 0 
MB 5120 

HK 5130 
KN 5 150 

KM 5160 
GF 5170 
KO 5 180 
DC 5200 
IP 5210 

AO 5220 
LA 5310 
LM 5320 

HN 5330 
NB 5350 

KO 5360 
6E 5370 

LA 5380 
DI 5400 
JN 54 10 

BA 5420 
CJ 6990 


CO 6995 

DA 7000 

NL 7010 

DN 7100 

HD 7 1 1 0 
CC 7120 
KD 7130 
MA 7200 


IF TBL(Y,X)=NOW THEN RETURN 
DX=X:DY=Y:TRAP 5100 

DX = DX+HD:DY = DY + VD: IF TBL <DY,DX)=OTHER 
THEN 5070 

IF TBL(Y,DX)=NOW THEN DFL=C1 
RETURN 

TRAP 5040:RETURN 
FOR X=C1 TO S 

IF TBL(VER,X)=0 AND TBL(VER,X-Cl)<>0 A 
ND TBL (VER, X+Cl)< >0 THEN GOSUB 5150 
NEXT X:RETURN 

HD=C1:FL=0:GOSUB 5200:IF FL=OTHER THEN 
FL=0:HD=-C1:GOSUB 5200:GOTO 5170 

RETURN 

IF FL=OTHER THEN STR(VER,X)=100 
RETURN 

D X = X:TRAP 5220 

DX=DX+HD:IF TBL(VER,DX)<>0 THEN FL=TBL 
< VER,DX):GOTO 5210 
TRAP 40000:RETURN 
FOR Y=C1 TO S 

IF TBL(Y,HOR)=0 AND TBL(Y-C1,HOR)<>0 A 
ND TBL(Y + C1,HQRX>0 THEN GOSUB 5350 
NEXT Y:RETURN 

VD=C1:FL=0:GOSUB 5400:IF FL=OTHER THEN 
FL=0:VD=-C1:GOSUB 5400:GOTO 5370 
RETURN 

IF FL=OTHER THEN STR(Y,HOR)=100 
RETURN 

DY=Y:TRAP 5420 

DY = DY+VD: IF TBL(DY,HOR) <>0 THEN FL = TBL 
(DY,HOR):GOTO 5410 
TRAP 40000:RETURN 

J=HOR:I=VER:K=C5+C9*(N0W=C1):FOR LOOP= 
K TO K+39:K=K+C1-18*<K=18>:POSITION J + 
J+C2,I+I+C2:? #S;ANIM$(K,K) 

SOUND O,C4,O,S*<K=C8 OR K=17):NEXT LOO 
P:RETURN 

OPEN #C 1 , C4 , O , 11 K: " : GET #C1,KEY:CLOSE # 
Cl:IF KEY=155 THEN 7000 

KEY = KEY—128* <KEY>127) :KEY = KEY —32* < KEY > 
90):RETURN 

POSITION C2*J+C2, I*C2 + C2:ON TBL<I,J> G 
OTO 7120,7130 
? # S; "\":RETURN 
? #S;"CJ>":RETURN 
? #S ; " CSJ> " : RETURN 

POSITION 0,23:7 #S;”C20 SPACES} POKE 
LIST 1+26,C7:POKE L1ST 1+28,S 


87 



Chapter 2 


KJ 7205 

DB 7210 

LH 7220 
JB 8000 

HP 8001 
DB 8002 
NN 8005 
ON 8007 

GP 8010 

NK 8020 
NB 8030 
OH 8040 
HH 8080 

BF 8083 
IN 8085 


BO 8090 

DH 81 00 

PH 8 1 1 0 
NE 8 120 
AF 8200 


BO 8210 

BJ 8240 

AP 8242 
CH 8244 
BI 8246 


FOR LOOP = C1 TO C3:POSITI ON 0,24-0PT:7 
#S;LINE$; : SOUND O,50*LOOP,DF,C10:FOR D 
EL = C1 TO 55 : NE X T DEL 

POSITION O,24 —OPT:? #S; M C20 SPACES*"; sS 
OUND 0,0,0,0:FOR DEL=C1 TO C7:NEXT DEL 
:NEXT LOOP 

POKE LIST 1+28,C7 :POKE LI ST 1+26,S:POSIT 
ION 17,20:7 #S;"{32 SPACES}RETURN 
H0R=C8:VER=11:POKE 53248,HOR*16:CR=P0+ 
VER*C8:COL=14*(N0W-C1) :0P=14* <N0W*C2-C 
3):POKE 704,COL 

SOUND O,40,C10,15:POKE CR,24:POKE CR+C 
1,126:POKE CR+C2,24:POKE 705,144 
POSITION Cl,20:7 #S;”C4 SPACES} H ;PL1$( 
C2,11);" SOUND 0,0,0,0 

J ST = STICK(NOW —C1) :TRIG = STRIG(NOW-C1) : I 

F J ST=15 AND TRIG THEN 8005 

POKE 77,O:POKE CR,0:P0KE CR+C1,0:P0KE 

CR+C2,O:IF TRIG=0 THEN SOUND O,20,C10, 

15:J=H0R-C4:I=VER-C3:GOTO 8100 

HOR = HOR + DELTA(JST,O) :VER = VER + DELTA ( JST 

,C1) : IF H O R > C12 THEN H0R=H0R-C9 

IF HOR< C4 THEN H0R=H0R+C9 

IF VER >11 THEN VER=VER-C9 

IF VERCC3 THEN VER=VER+C9 

IF HOR< C12 AND VER<11 THEN POKE 704,CO 
L —OP * (TBL(VER-C3,H0R-C4)=NOW) :GOTO 808 
5 

POKE 704,COL:IF VER>C4 AND VER<C9 THEN 
POKE 704,42 

CR=P0+VER*C8:SOUND O,200,C12,C10:POKE 
53248,HOR*16:POKE CR,24:POKE CR+C1,126 
:POKE CR+C2,24 

SOUND 0,0,0,0:F OR L00P = C1 TO 20:NEXT L 
OOP:GOTO 8005 

SOUND 0,0,0,0:IF J=C8 AND I>C1 AND I<S 
THEN POKE 705,42:PASS=C1:GOTO 3200 
IF I=C8 OR J=C8 THEN 8080 
GOTO 8260 

GOSUB 7220:SOUND O,40,C10,15:POSITION 
Cl,20:7 #S; PL1S (C2 ) ; " SOUND O, 

0,0,0 

GOSUB 7000:I$=CHRt(KEY):? #S;I$:XF I*= 
"P" THEN PASS=C1:GOTO 3200 

? #S; " £13 SPACES3 HC2B GOSUB 7000: EXC 

H$=CHR$(KEY):? #S;EXCH$ 

IF I $ > = •' A “ AND 11 < = " H " THEN 8250 
IF EXCH$<“A" OR E X C H $ >"H” THEN 8254 
J = ASC(EXCH4)-65: IF I*<“1" OR I $ >"8” TH 
EN 8254 
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HO 8248 
PC 8250 

KI 8252 
GE 8254 

LB 8260 


FE 8300 

BA 8310 

MI 8350 
0C 8360 


BK 8365 

JE 8400 

KN 8405 
HH 84 10 

MK 84 15 

IK 84 17 
KB 8420 


DI 8421 
IJ 8422 

JB 8424 
JH 8426 
SK 8430 

JN 8500 


00 85 10 


Wi 8520 

FL 8530 
HB 8540 
NL 8550 


I=ASC(1$)-49:GOTO 8260 

J = ASCn$)-65: IF E X CHS < ” 1 " OR EXCH*> M B" 
THEN 8254 

I=ASC(EXCH$)-49:GOTO 8260 

LINE$= H C5 SPACES!-TRY AGAIN”:DF=C10:GOS 
UB 7200:GOTO 8200 

HOR=J:VER =I:POSITION C2*J+C2,I*C2+C2:7 
#S;PL1$(C1,C1):IF TBL<I,J)=0 THEN TBL 
(I,J)=NOW:GOSUB 1600:GOTO 8350 
LINE$=" C 




13 


squar 


E" : IF NOW=C1 


THEN LINE$=" captured!, I-square" 
DF=C12:GOSUB 7200:GOSUB 7100:GOTO MAIN 
LOOP 

IF F LIP > O THEN GOSUB 3000:GOTO 8400 

TBL ( I , J ) =0 : LINE$=" C4 SPACES 

{|13 33ZE” : IF N0W = C1 THEN L I NE$ = " 

C4 SPACES! illegal C , 3 move" 

DF=C12:GOSUB 7200:GOSUB 7100:GOTO MAIN 
LOOP 

I=NOW:NOW=OTHER:OTHER=I:EXCH$=PL1$:PL1 
$=PL2$:PL2$=EXCH$:IF SFL=C2 THEN 8500 
IF PLYRS>C2 THEN 9800 

IF PLYRS=C2 OR N0W=C3-CP THEN GOTO MAI 
NLOOP 

LINE$=" computerIG3 bC, 3 move": IF NOW = C 
2 THEN LINE$= " r^«:M-llk<=T S Cr?3 EIW3 Ml-" ' 

IF OPT=C1 THEN GOSUB 8570 

SOUND O,40,C10,15:POSITION 0,20:7 #S;L 
INE$:SOUND O,O,O,O:GOSUB 4000:GOSUB 48 
00:GOSUB 3300 
IF MA X = — 210 THEN 3212 

IF STR<VER,HOR)=500 THEN K=300:GOSUB 4 
200:GOTO 8430 

IF HOR=0 OR H0R=C7 THEN GOSUB 3800 
IF VER=0 OR VER=C7 THEN GOSUB 3900 
GOSUB 6990:GOT O 8260 


GOSUB 7220:POSITION Cl,20:7 
{DOWN!”; 

1 $; " 


: I= BSCR:K = - 


7 9 ■ 


: GOSUB 


#S;"black 
9700:7 #S; 


5(INS LINE 3- " ; : I=WSCR: K = 96: GO 


SUB 9700 
7 #S;1$: 
7 #S;”(5 
40 

IF WSCR> 
ECW3 3HI 


GFL=C1:7 #S:IF BSCR>WSCR THEN 
SPACES!black(,3wins";:GOTO 85 


7 # S ; " I 6 
IF PEEK( 
POKE 77, 
L=0:M=0: 


»• - 


BSCR THEN 7 #S;"C5 SPACES32 
;:GOTO 8540 
SPACES! , 

53279)>S THEN 8540 

O:K=PEEK(53279):IF K=S THEN SF 
GOSUB 8570:GOSUB 1740:GOTO 840 
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NO 8552 


C6 8554 

OC 8556 
GB 8560 
LI 8565 
OJ 8570 

CN 8600 
El 8601 

KK 8602 
LC 8604 
BN 8610 
GH 8630 
AH 8640 
6J 8650 

AB 8660 

EF 8670 


PB 9000 


JC 9005 


LD 9010 


LJ 90 1 1 


FD 90 12 
EA 9013 


HD 90 1 4 


BA 9020 
13 9030 


IF K=C3 AND PLYRS=C1 THEN CP=CP+Cl-C2t 

<CP=C2):GOSUB 8600sGOTO 8540 

IF K=C5 THEN PLYRS=PLYRS + C1-C4*(PLYRS= 

C4):GOSUB 8560:GOSUB 8600 

GOTO 8540 

IF PLYRS=C3 AND GFL=0 THEN PLYRS=C1 
RETURN 

POSITION 0,20s? # S; " 160 SPACES!”;sRETUR 
N 

IF PLYRS< C3 THEN GOSUB 8670 

ON CP+C2*PLYRS-C2 GOSUB 8630,8640,8610 

,8610,8650,8650,8660,8660 

IF PEEK(53279)<=S THEN 8602 

RETURN 

? #S; ,, C18 SPACES1 " : RETURN 
? #S; ■ computer 1,}15 C,>b1ack":RETURN 

? #s;" reii! rnrrra: " = return 


#S; 


II 


ftUTOMftTIC REPLfl 


MANUAL 


POSITION 0,20s? 

" s GOTO 8610 

POSITION 0,20s? # S ; " 13 SPACES! 

Q31ES5C4 SPACES! " s GOTO 8610 

POSITION 0,20s? # S; " C 3 SPACES! CHR$ (P 
LYRS+176) ; " ■ s3 r»cfslSl a C 4 SPACES! ” s RET 

URN 

GRAPHICS Os I =PEEK (560) 4-256 * PEEK (56 1 ) s P 
OKE I+C3,71sPOKE I+C10,SsSETCOLOR C2,C 
10,OsSETCOLOR C4,C10,O 

SETCOLOR Cl,C10,C8s SETCOLOR C3,Cl 2,C8s 
POKE 53774,112s POKE 16,64sP0KE I + 14,S: 
POKE 1 + 15,Ss POKE 1+20,S 

POKE 1+21,SsPOKE 82,OsPOKE 83,39sP0KE 
752,ClsPOSITION C5,0s? ” REVERSI 

120 SPACES!112 T!CD>" 

FOR J=C1 TO 50:NEXT JsFOR J=19 TO 31sS 
OUND O,200,C12,C8sPOSITION J,Os? n +"s 
SOUND 0,0,0,0 

FOR K = C1 TO C7 s NE X T KsNEXT J 
FOR J = C1 TO 30 s NEXT JsSOUND O,20,C10,C 
10:POSITION 32,Os? "(D> "; :SOUND 0,0,0, 
OsFOR J=C1 TO 35:NE X T J 

FOR J = C1 TO C12 s SOUND O,60,C12, C8s? ” 

CD! ”; : I = I-I + IsSOUND 0,0,0,0:FOR K = C1 T 
O C4:NEXT KsNEXT JsI$=CHR$(34) 

POSITION 20,C4:? "select input device 
1Z!138 M! H s? s? " 1. 

SPACES!Enter COLumn, 


14 


ROW coordin 


if 


a t e s . 

to pass 


II 


14 SPACES!Enter 


•I 


I $ : " P 


II 


I $ 


ll 
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AA 9040 


JM 9050 


DG 9 100 


JL 9 1 1 0 
IH 9500 
CK 9505 


HD 95 10 


CL 9520 


PC 9600 
MN 9 700 

KI 9800 


IA 9805 


DB 9806 

m 9807 
6N 98 10 
LA 9830 
AL 9835 
OB 10000 

BD 1 0 1 00 


JP 10 110 

LG 1 0 1 20 


PA 10 130 
OD 10200 


14 SPACES}Move the cursor < +) to the 5 
quare":? " (4 SPACES > y o u want and press 

the trigger." 

? " 14 SPACES}To pass, place the cursor 

over":? " C4 SPACES}"; 1$; "PASS"; 1$; " a 
nd press the trigger." 

GOSUB 7 00 0:TRAP 9100: OPT = VAL €CHR$ (KEY) 

):TRAP 40000:IF OPT<Cl OR 0PT>C2 THEM 
9 100 

GRAPHICS 23:RETURN 

I=C10-+C4*(OPT-C1):K=-32:GOSUB 9700 
POSITION Cl,Cl:? #S;"PREPARING THE FIR 
ST":? # S; " BOARD WILL TAKE":? #S:? #S; 

" ABOUT "; I $; " seconds." 

? # S:? # S: ? # S; " WHEN THE BOARD 

15 SPACES}":? #S;" APPEARS, PRESS: 

14 SPACES}":? #S;" 




? #S; " MJEg l fli' - EEH JEMS* " :? #S; " gig 

_ " :? #S; " Saggi ~ GAME" 

:RETURN 

? #S:? # S : ? #S ; " patience INI ":RETURN 

I$=STR$(I):FOR J=C1 TO LEN(I$):I$U,J) 
=CHR$(ASC(I$(J,J))+K):MEXT J:RETURN 
SOUND 0,40,010, 15: VER =I NT <GAME (M) ) : HOR 
= 10* (GAME (M) — VER) : POSITION C5 ? 20:? #S; 

PL1$(C2,11):SOUND O,0,0,0 

I=INT(<M+C2)/C2):POSITION C9+(ICC10),2 
2:K=128:GOSUB 9700:? #S;I$:FOR K=C1 TO 
C10:NEXT K 

IF PLYRS = C4 THEN GOSUB 7000 + 2330* ( OPT- 
C 1 ) 

IF VERCO THEN 3212 
GOSUB 6990:GOTO 8260 

IF STRIG(O) AND STRIG(Cl) THEN 9830 
POKE 77,0:RETURN 

DATA 500,-70,75,65,-70,-200,0,0,75,0, 
40,20,65,0,20,0 

DATA 664,38,648,224,696,256,552,240,5 
20,472,544,488,720,32,704,40,536,48,9 
92,120,656,496,ERROR 

DATA 60,24, 126,24 ,2 55,60,2 55,23 1,255 , 
231,255,60,126,24,60,24 

DATA 16,0,60,126,255,255,126,60,0,24, 
0, 0 5 12 6,255,255, 126 . 0,0, 4 , 9J , 0 , 0 ,255, 
2 5 5,0,0,0,72,0, 0 , 0,255, 0 ,0,0 ,0 

DATA 104,0,0,0,0,255,0,0,0 

DATA 1 , 1 , 1,0, -1 , - 1 , -1,0,0,0,0, 1 , -1,0, 

0 , 1,-1,0,0, 1 , -1,0 


1,25 
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AF 14 000 


AC 14010 


CE 14 020 


BB 14 025 
OE 14 030 

CF 15000 

FI 15010 


FJ 15020 

U 15030 

DF 15040 
DG 1504 2 

OE 15044 

HB 15050 

GB 15055 
ED 15060 

HP 15070 
DP 15080 
NA 15085 
NE 15090 
EF 15095 

AC 15100 


C1=1:C2=C1+C1:C3=C2+C1:C4=C2+C2:C5=C4 
+C1:C8=C4+C4:C7=C4+C3:S=C3+C3:C10=C5+ 


C5:C12=S+S:C9=C5+C4 

DIM T BL (C7, C7),STR(C7,C7),DELTA(15,C1 
) , I $ < C 2 ) ,PLlt (Cl 2) , PL2$ ( C 1 2 ) ,E.XCH$(C1 
2),LINE$(19),ANIM$(18),GAME(75) 
PLYRS=C1:CP=C1:GOSUB 9000:FAC=255*(OP 


T-Cl):MAINLOOP=8000+200*\OPT=Cl>:G03U 
B 1000 

IF OF'T-Cl THEM GOSUB 2000: GOSUB 2500 
SFL = 0: X = F'EEK ( 559) : POKE 559 , O : GOSUB 15 
000:POKE 559,X:GOSUB 8600:GOTO 3540 
? # S; " (CLEAR} ”:POKE 709,0:POKE 711,14 
:POKE 712,198:POKE 710,176:POKE 708,2 
34: IF OPT = C 2 THEN POKE 708,52 
ANI M$ = " C B > -CC1 CHI C I > (C> CG3 Cg> CE 3- CEO 
CE> CE1 C El C§jl CM I CHI CC> CB> C J > ” : POKE 7 56 
, SET/256:POSITI ON 0,19:7 #S; 

mmmmmmMKMmmm" : REM 20 INV. 


SHIFT- 


AQAQAQAGA 


Cl,(C2 


POSITION Cl,Cl:? #S; 
fe2" : FOR I=C1 TO C7:P0SITI0N 
7 #S : "Q\Q\B\S\B'.S\B\B\B" : ? 

™ M M CTM Mi I" - MFYT I 

7 # S; " B\B\B\B\B\B\B\B\B" 

7 #S;CHR$(32);CHR$(164);CHR$(222) 
$(165);CHR$(222);CHR$(165);CHR$(2 
CHR$(165);CHR$(222);CHR$(165); 

7 #S; CHR$ (222) ; CHR$ ( 165) ; CHR$ (222 

R$(165);CHR$(222);CHR$(165);CHR$< 
;CHR$(166) 

POSITION C5,C5:7 #S;"B";:POKE 85, 
#S; "OPPOSITION C5, 13:7 #S;"O";: 
85,13:7 #S;"B" 


* I ) 


; CHR 
22 ) ; 

) ; C.H 
222 ) 

13:7 

POKE 


IF OPT = C2 THEN 15080 

POSITION 0,0:7 #S; 11 A B C D E F G H" 
:FOR I=C1 TO C8:7 ttS:7 #S;I;:POKE 85, 
18:7 #S;I:NEXT I 

7 # S : 7 # S ; " A B C D E F G H" : LET LIS 


T1=-C8:RETURN 


POSITION 1 7 , C5: 7 #S;”EEET:FOR I=S TO 
C12: POSITION 18,1:7 #S; "\fi" :NEXT I 
POSITION 17,13:7 «S;CHR$(171);CHR$(22 
2);CHR$(164) 

I=PEEK (560) + 256 * PEEK(561 ) :LET LIST 1 = 1 
:POKE I,S:POKE I+C1,C7 

FOR J = C 2 TO C4:P0KE I+J, PEEK(I+J+Cl ) : 
NEXT J:POKE I+C5,S:POKE I+28,C7:POKE 
707,52 

POKE 706,150:POKE 705,144:POKE 53251, 
208:POKE 53255,40:POKE 53250,188:POKE 
53249, 192:RE fURN 
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Dollars from Heaven 

Steven Cohen 


Money may not grow on trees, but after playing this game 
you'll be convinced that it drops from the sky. 

“Dollars from Heaven" uses the vertical blank PM routine 
(VBLANK PM) by Tom Sak and Sid Meier, in COMPUTE!'s 
First Book of Atari Graphics. It shows how a novice can create a 
game using programming techniques like the ones described 
in that volume. In fact, once the tricks have been mastered, it 
takes only a good idea and a little time. 

Understanding Interrupts 

The picture on your TV is formed when a beam of electrons 
draws scan lines across the screen. The beam starts at the top- 
left corner and moves to the right edge of the screen. It then 
shuts off for a fraction of a second (the so-called horizontal 
blank) and moves back to the left edge and down one line to 
draw the next scan line. 

After the last scan line is drawn, the beam shuts off and 
moves back to the top-left corner. This is the vertical blank, 
and it repeats 60 times per second. This game uses the blank 
period to update the positions of the players on the screen. All 
the user has to do is update the registers that hold the player 
position; the ML routine does the rest. 

In addition, each player can have four different shapes 
which, when used in a sequence, add to the animation of the 
character. For a complete discussion of the technique, I recom¬ 
mend that you get a copy of COMPUTEI's First Book of Atari 
Graphics. 

Catching Dollars 

After you type in Dollars from Heaven, save it to disk or tape 
before trying to play. Attempting to save the game after a few 
rounds have been played will cause strange things to happen 
when it is reloaded. 

The object of the game is to catch dollar signs to buy 
building materials without getting hit by the bombs. You con¬ 
trol the player at the right, moving right or left with the joy¬ 
stick. If you get hit by a bomb, you lose everything you were 
carrying. In addition, there are nails in the middle of the 
screen; use the fire button to jump over them. 
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Once you have collected enough dollars to match the cur¬ 
rent trade value (3 in the first round), take them to the store to 
get supplies. Then go to the site where the house is to be built 
(at the far-left side of the screen) and part of the house will 
appear. It takes four trips to the store to build a house. You 
get 10 points for catching a dollar sign, 10 points for installing 
the first three parts of the house, and 50 points for completing 
the house. 

After the first house is completed, you go to the next 
round. The trade value becomes four, and the bombs move a 
little faster. If you get to 1000 points, you get an additional 
player. The game starts with two players on reserve. 

How It Works 

Below is a brief explanation of the program. 

Line(s) 

90 Initializes player/missile graphics and Vblank PM. 

91-100 Draw background. 

101-102 Set up variables. 

103-120 Draw background. 

125-134 Set player color size and starting location. 

143-145 Move bombs and dollar sign. 

146 Checks to see if player is currently jumping. 

147 Checks for start of jump. 

148-150 Check joystick and move player. 

151 Disables attract mode. 

152 Gives Vblank PM new positions. 

170-175 Check for collisions. 

176 Looks for player at store. 

177 Looks for player at house. 

195 Animates player. 

300-349 Player-bomb collision routine. 

500-506 Player-dollar sign collision routine. 

600-612 House plotting routine. 

800-820 Jumping routine. 

1000-3060 Set up Vblank PM and player/missile graphics. 

Dollars from Heaven 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HN 90 POKE 53278, HITCLR: GRAPHICS SsSETCOLOR 2, 
3,3:SETCOLOR 4,8,4:? "PLEASE WAIT!":GOSU 
B 1000 

IL 91 COLOR 1 : PLOT 35,39:PL0T 37,39:PLOT 39,39 
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KL 92 PLOT 37,38 

HA 99 COLOR 2:PL0T 75,39 : DR A WTO 75,26:PLOT 79, 
25:DRAWTO 73,27:PL0T 79,39:DRAWTO 79,25 
PN 100 PLOT 78,39: DRAWTO 78,26:PLOT 77,39:DRAW 
TO 77,27:PLOT 76,39:DRAWTO 76,27 
KE 101 Q = 6: MEN = 3: D9 = 3: Al = 1 : SC = 0: FY = 0 
KK 102 B2 = 0: D1=0: C0 = 0 

EB 103 PRINT :? :? :? " SCORE=" ; SC: FOR 1 = 1 TO 8 

99:NE X T I 

OA 104 PRINT : ? ,, HOUSE(9 SPACES 3-NAILS 
C12 SPACES!STORE":? 

DH 105 COLOR 1 : PLOT 9,5:DRAWT0 9,7:PL0T 8,6:PL 
OT 10,4:DRAWTO 10,8:PLOT ll,4:DRAWTO 11 
,8:PLOT 12,5:DRAWTO 12,7 
JH 106 PLOT 13,6 

HN 120 PRINT "ROUND" ; A1 ; " C20 SPACES3TRADE=D9 
GL 125 POKE PLY, 169: POKE PLL,24 

DI 126 POKE PLY+1 , 15: POKE PLL+1,9:P0KE PLX+1,1 
50 

BJ 127 POKE P L L + 2 ,9: POKE PLL+3,13:POKE PLY+2,1 
5:POKE PLY+3,15:POKE PLX+2,170:POKE PLX 
+ 3, 70 

JJ 134 Z = 10: A=10: B=10: DRAW=1 
MC136 I =200 : GOTO 148 

FP 143 A = A + Q + 2: IF A>220 THEN A = 5 : R = RND ( 1 ) *200 : 

POKE PLX +2,R: IF R<45 THEN R=170:POKE PL 
X +2 , R 

OF 144 B=B+4:IF B>220 THEN B = 5: R = RND ( 1 ) *200: PO 
KE PLX+3,R: IF R<45 THEN R=100:POKE PLX+ 
3, R 

DF 145 Z=Z+Q:IF Z >220 THEN Z=5:R=RND(1)*200:PO 
KE PLX + 1 , R : IF R<45 THEN R = 70:POKE PLX + 1 

DF 146 IF JPO0 THEN 800 

OE 147 IF STR I G ( 0 ) =0 THEN JP=l:GOTO 800 
JF 148 IF ST I CK ( 0 ) = 1 5 THEN 152 

CF 149 IF ST I CK (0) =7 THEN 1 = 1+3: IF I >200 THEN 
1=200 

PE 150 IF ST I CK ( 0 ) = 1 1 THEN 1 = 1-3: IF I<44 THEN 
1=44 

JA 151 POKE 77,0 

CK 152 POKE PLY+1 , Z: POKE PLY + 2,A:POKE PLY+3,B: 

POKE PLX,I:SOUND 0,Z„14,2 
HO 170 IF PEEK (53261 ) =1 THEN 300 

KN 171 IF I < 126 AND I>102 AND PEEK (53252) >0 TH 
EN 300 

MB 172 IF PEEK (53262) =1 THEN 300 
N6 174 IF PEEK (53263) =1 THEN 500 
HH 175 POKE 53278,HITCLR 
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LP 176 IF D1=D9 AND I>180 THEN D1=0:SOUND 2,60 
,10,8:FOR Cl=l TO 200:NEXT Cl:SOUND 2,0 
,0,0:B1= B1+1 

DA 177 IF B1>0 AND I<50 THEN GOSUB 600 

AN 185 POKE PDR, DRAW 

JB 190 IF ST I CK ( 0 ) = 1 5 THEN 205 

DD 195 DRAW=DRAW+24:IF DRAW>73 THEN DRAW= 1 

BI 205 GOTO 143 

NJ 300 Z = 5: D=0: JP=0: SOUND 3,0,0,0:EX=0 
JF 302 FOR U=100 TO 200 STEP 10:SOUND 0,1,0,15 
: NE X T U 

CC 306 POKE PLY+l,Z:POKE PLY+2,Z:P0KE PLY + 3,Z 
6H 307 POKE PLX , 200: MEN = MEN-1 : D1=0: B1=0: POKE P 
L X + 1 , R :FOR S=1 TO 200:NEXT SsSOUND 0,0, 
0,0 

KF 325 POKE 53278 , H I TCLR : I F MEN = 0 THEN 327 

6(1326 GOTO 125 

CC 327 ? : ? " SCORE= " ; SC 

LA 328 PRINT "GAME 0VERI3 SPACESJTO PLAY AGAIN 
PRESS FIRE" 

EF 330 COLOR 0 

HB331 PLOT 3,39: DRAWTO 3,33 
6N 332 PLOT 0,35: DRAWTO 8,30 

KE 333 PLOT 8,30:DRAWTO 15,35 

NE 334 PLOT 12,33: DRAWTO 12,39 

E6 348 IF STR I G <0) =0 THEN 99 
HI 349 GOTO 348 

6P 500 D 1 =D1 + 1: IF D1>D9 THEN D1=D9 
LI 501 B = 5: FOR C= 1 TO D1:F0R Y=15 TO 0 STEP -1 
:SOUND 2,9, 10,Y:NEXT Y:NE X T C 
FC 502 SC=SC+10:IF FY = 0 AND SO1000 THEN MEN = M 
EN+1:FY=1:? "C BELLI" 

NH 505 R = RND < 1 ) * 190: IF R<45 THEN 505 

ON 506 POKE PLY + 3, B: F OR S=1 TO 20:NEXT S:POKE 

PLX+3,R:SOUND 0,0,0,0:POKE 53278,HITCLR 
:GOTO 143 

AO 600 COLOR 2: B2 = B2 + B1 : B1=0: FOR Rl = l TO 20:SO 
UND 3,170,6,10:FOR J=1 TO 3:NEXT J:SOUN 
D 3,0,0,0:FOR J=1 TO 5:NEXT J 
FJ 601 NEXT R1 

BC 602 IF B2 >0 THEN PLOT 3,39:DRAWT0 3,33 

AP 603 IF B2 > 1 THEN PLOT 0,35:DRAWTO 8,30 

EH 604 IF B2 > 2 THEN PLOT 8,30:DRAWTO 15,35 

LK 605 IF B2 >3 THEN PLOT 12,33:DRAWTO 12,39:C0 

LOR 0:FOR DE=1 TO 100:NEXT DE:GOTO 611 
K6 610 SC = SC+10: RETURN 

BN 611 IF C0 = 0 THEN A1=A1 + 1 : Q = Q + 2: D9=D9 + 1 : C0=1 
:GOTO 602 

JI612 SC = SC + 50: GOTO 102 
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EK 800 POKE PLY, PEEK <PLY) -3* JP: IF PEEK(PLY)<15 
0 THEN JP=-JP 

HI 805 SOUND 3, PEEK (PLY)-100, 10, 10 
DL 806 DRAW=2 

IP 8 1 0 IF D< >0 OR E X = 1 THEN 815 

H8811 IF STICK (0) < >7 AND STICK(0X>11 THEN EX 
= 1 

NI812 IF ST I CK ( 0 > = 1 1 THEN D = -3 
KH813 IF ST I CK ( 0 ) = 7 THEN D = + 3 
AF815 I = I+D: IF I >200 THEN 1=200 
DIS16 IF I < 44 THEN 1=44 

OS 817 IF PEEK (PLY) =169 THEN JP = 0:SOUND 3,0,0, 
0:D = 0:E X =0 


6K 820 

GOTO 

151 






DB 1000 

FOR 
T I 

1=1536 

TO 

1706: 

READ 

A: 

POKE I,A:NE X 

EN 1020 

FOR 

1=1774 

TO 

1787: 

POKE 

I, 

0:NE X T I 


NC 1030 PM = PEEK ( 106)-16: PMB ASE = 256 * PM 
EH 1040 FOR I=PMBASE+1023 TO PMBASE+ 2047 : POKE 
I,0 = NEXT I :DRWBAS=PMBASE+1 
DP 1055 FOR J=0 TO 3 

GL 1065 FOR K=DRWBAS+J *24 TO DRWBAS+J*24+23:RE 
AD X s POKE K, X : N E X T K:NEXT J 
LJ 1066 RESTORE 3050 

LH 1067 FOR I=PMBASE+1281 TO PMB ASE + 1 289 : RE AD 
AsPOKE I,A:NEXT I 
LL 1068 RESTORE 3050 

LN 1069 FOR I =PMBASE + 1 537 TO PMB ASE+1 545 s RE AD 
AsPOKE I,A:NE X T I 
LF 1070 RESTORE 3060 

LK 1072 FOR I=PMBASE + 1793 TO PMB ASE+1 805 s RE AD 
AsPOKE I,A:NEXT I 
PF 1075 POKE 704,223: POKE 705,73 
PD 1076 POKE 706,44: POKE 707,200 
6P 1080 PLX = 53248: PLY=1780: PLL=1784 
AK 1090 POKE 559,62: POKE 623,4:POKE 1788, PM + 4: 

POKE 53277,3:POKE 54279,PM 
FH 1091 POKE 53256, 1 

HF 1095 PDR=1772: POKE 1771, PM 

HI 1100 X = USR ( 1696) 

KD 1110 RETURN 

KB 2000 REM 

SP 2010 DATA 162,3,189,244,6,240,89,56,221,240 

,6,240,83,141,254,6,106,141 
DB 2020 DATA 255,6, 142,253,6,24, 169,0, 109,253, 
6,24,109,252,6,133,204,133 
EC 2030 DATA 206, 189,24 0,6, 133,203, 173,254,6, 1 

33,205,189,248,6,170,232,46,255 
ED 2040 DATA 6, 144, 16, 168, 177,203, 145,205, 169, 
0,145,203,136,202,208,244,76,87 
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PE 2050 

KM 2060 

NE 2070 

GL 2080 

CG 2090 

OF 2100 
KM 3005 
KK 3015 

KO 3025 

OH 3035 

AA 3045 

01 3050 
LD 3060 


DATA 6,160,0,177,203,145,205,169,0,145 
,203,200,202,20S,244,174,253,6 

DATA 173,254,6,157,240,6,189,236,6,240 

,48, 133,203,24,138, 141,253,6 

DATA 109,235,6, 133,204,24, 173,253,6, 10 

9,252,6, 133,206, 189,240,6, 133 

DATA 205, 189,248,6, 170, 160,0, 177,203, 1 

45,205,200,202,208,248,174,253,6 

DATA 169,0,157,236,6,202,48,3,76,2,6,7 

6,98,228,0,0, 104, 169 

DATA 7,162,6,160,0,32,92,228,96 

REM 

DATA 0,12,12,30,0,12,12,0,12,14,30,45, 
13,13,12,28,28,20,52,34,34,34,102,0 
DATA 0,12,12,30,0,12,12,0,12,14,14,13, 
26,4,8,12,12,28,24,28,24,20,18,50,0 
DATA 0,12,12,30,0,12,12,0,12,14,10,14, 
30,12,8,12,28,28,8,12,12,8,24,0 
DATA 0,12,12,30,0,12,12,0,12,12,12,10, 
6,30,12,12,12,12,20,20,18,50,6,0 
DATA 126,195,195,126,24,153,90,62,24 
DATA 16,124,214,211,208,112,28,22,19,1 
47,214,124,16 
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Box Hunt 

Lenny Norinsky 


Are you looking for a fast-paced game that challenges re¬ 
flexes as well as skill? Then "Box Hunt/' for any Atari with 
the GTIA chip installed, is for you. It will bring new meaning 
to the phrase "Don't fence me in." 

"Box Hunt" is a simple but entertaining game that demon¬ 
strates your Atari's ability to plot objects on the screen. You've 
just been named to the high post of Territorial Defender of 
Wambaogh, and your mission is a simple one: to erect a net¬ 
work of protective walls to defend your city and confuse the 
hostile Zuvambian raiders. Your weapon? The speedy 
Wambaoghian Waller, a sophisticated machine that automati¬ 
cally leaves a wall wherever it goes. All you have to do is 
guide it across the countryside. 

Or so you thought, until you read the fine print in the 
manual: "This Wambaoghian Waller must stop for supplies 
every 1000 glunkas." Supplies, huh? You know that means 
boxite —and that means you'll not only have to erect those 
walls but look for boxes too. 

It's not just a job. It's a box hunt! 

Guide your Waller using your joystick; it will leave a 
trail—the wall—behind it. Hit the boxes to run up your score. 
Every time you hit a box, you get 100 points and several addi¬ 
tional boxes appear. The object is to survive as long as you 
can, hitting as many boxes as possible, before crashing into 
the border or running into one of your own walls. If you do 
crash, the game will stop, show your score, and start over. 

As you'll quickly discover. Box Hunt produces some fast, 
reflex-challenging action. That's why I've included a panic 
button feature too. When you are in a tight space or about to 
crash, press the trigger on the joystick and your line will be 
randomly relocated on the screen. Sometimes it's all that will 
save you. But use it only when you have to, for it can make 
things worse just as easily as it can make them better! 
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Box Hunt 

For error-free program entry, read "The Automatic Proofreader " in Chapter 1 before typing 
in this program. 

CL 1 GRAPHICS 0: GOSUB 1100:? :? :? ” 

02 SPACES ^iVMgllJr yi " : ? :? :? "POINT VALUES 

:? "100 POINTS for a box." 

PJ 3 ? "5 POINTS for a line segment.":? "10 PO 

I NTS til Ja for easy escape” 

BC 4 POSITION 20,20:? "PRESS" : SOUND 0,100,10,1 
0:POSITI ON 20,21:? "SECED": SOUND 0,50,10, 
10: IF PEEK (53279) <>6 THEN 4 
HG 5 GOSUB 1000 

GC 10 GRAPHICS 11: POKE 7 1 0,0 : Z X = 1 : Z Y = 0 : X = 40 : Y = 
90:COLOR 10:PLOT 0,0:DRAWTO 79,0:DRAWTO 
79,191:DRAWTO 0,191:DRAWTO 0,0 
BK 20 A = RND(0) *70 + 5:B = RND(0) 1180 + 5:COLOR 15:PL 
OT A,B:DRAWTO A+2,B:DRAWTO A+2,B+2:DRAWT 
O A,B + 2 :DRAWTO A,B 

FK 30 COLOR 5: LOCATE X,Y,Z:IF Z = 10 OR Z=5 THEN 
100 

NA 40 PLOT X , Y : SOUND 0 , X , 1 0,4 : SOUND 0, Y, 10,4: I 
F Z =15 THEN 110 

1150 S = STICK (0) : IF S=14 THEN ZX=0:ZY=-1 
JC 60 IF S=13 THEN ZX = 0:ZY=1 
LO 70 IF S=ll THEN ZX = -1:ZY = 0 
GH 80 IF S = 7 THEN ZX=1:ZY=0 

BG 85 IF STRIG (0) =0 THEN X =RND ( 0 ) *70 + 5 : Y = RND ( 0 
)*180+5:SC=SC-10 

BD 90 X = X + ZX : Y = Y + ZY: SC = SC + 5: GOTO 30 

JE 100 GRAPHICS 2: GOSUB 1100:? #6:? #6:? #6:? 

#6;"f3 SPACES*score :";SC:FOR 1=0 TO 99 
9:NE X T I:RUN 

JH 110 X = X + ZX:Y = Y + ZY:SC = SC+100:GOTO 20 

FO 1000 GRAPHICS 2:? #6:? #6:? #6;"C3 SPACES**?: 

M REftPY" : SOUND 1 , 190, 10, 10: GOSUB 1100 
LJ 1010 FOR 1 = 1 TO 500: NE X T I:? #6:? #6;" 

C7 SPACES)go!":SOUND 0,121,10,10:SOUND 
1,87,10, 10:FOR 1 = 1 TO 200-.NEXT I 
LC 1020 SOUND 0,0,0,0: SOUND 1,0,0,0: RETURN 
KG 1100 REM 
CC 1101 POKE 709,31 
OH 1102 POKE 710,0 
KH 1105 RETURN 
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Dragon’s Den 

Ken and JoAnn Davy 


Fight monsters and search for gold, but watch out for the 
traps in "Dragon's Den." 

We've always been dreamers, so after we bought our Atari 
and cassette recorder, we went in search of an adventure. But 
not just any adventure. We wanted one with several levels 
and lots of monsters and treasures, and filled with magic, 
sound, and graphics. Most of all, it had to fit into 16K. We 
also thought the adventure should change each time it was 
played, so that even if players did well, the game would still 
be challenging. 

Alas, our searching was in vain. So our next idea was to 
write our own adventure. After all, how hard could it be to 
write an adventure game that met all our requirements? 

A Year Later 

One year and many sleepless nights later the task was done. 
"Dragon's Den" was complete. 

In the game you wander from room to room, through dif¬ 
ferent levels, looking for monsters to kill and gold to win. 

Each lower level is more difficult than the one above. When 
you reach the fifth level, you'll meet the dragon. 

Your player has three characteristics: strength, dexterity, 
and hit points. Hit points determine the amount of damage 
you can survive when fighting monsters. 

Strength determines the amount of damage you do to a 
monster each time you hit it. Your strength is subtracted from 
the monster's hit points and added to your hit points. When a 
monster hits you, its strength is subtracted from your hit 
points. Some monsters are very strong! When both monster 
and player hit each other, its strength is subtracted and your 
strength is added to your hit points at the same time. 

Dexterity is the measure of how often you can expect to 
hit the monster. The higher your dexterity, the more often you 
will score a hit. 

There are two play options. The STANDARD PLAYER 
has a value of seven for each characteristic. Pressing the 
OPTION key causes the player characteristics to be selected 
randomly, thus RANDOM PLAYER. A random player could 
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have characteristic values higher or lower than seven. The 
game begins when you press START. 

Meeting Monsters 

All game action is controlled with the joystick. To get from 
one room to the next, simply move the joystick in the desired 
direction. Choices are prompted by messages in the text win¬ 
dow and include things like going up or down stairs, attacking 
monsters, and using magic rings or potions. 

When you enter a room with a monster, you can attack it 
by pushing the trigger on the joystick. You can flee the mon¬ 
ster by moving away from it. However, the monster will get a 
free attack. 

Every time you kill a monster, your gold will increase. 
Some monsters will also have magic items. You may possess 
one ring and one potion at a time. When you see either, you 
are given the choice of using it or leaving it. To use a ring or 
drink a potion, press the trigger on the joystick. To leave it, 
move away. 

When you have found one of the rings that can be used 
for attacks, the computer will give you the normal prompt, 
PRESS TRIGGER TO ATTACK. If you wish to attack, press 
the trigger. Otherwise, move the joystick in any direction. You 
will then get the prompt PRESS TRIGGER TO USE RING. If 
you wish to flee, move the joystick a second time. 

The rings have a limited number of charges, so use them 
wisely. When you attack with an empty ring, the computer 
tells you OUT OF CHARGES, and the monster gets a free 
attack. 

A few of the monsters have poison. If you are poisoned 
by a monster, you die no matter how many hit points you 
had. If you kill a poisonous monster, you will be given a 
magic sword which will increase your strength. If you get a 
second magic sword, your strength will again increase. 

If you pass through an empty room you get extra hit 
points for "resting." The level you're on determines how 
many hit points you'll get. When you return to a room for a 
second or third visit, it is unlikely that what you saw the first 
time will still be there. If you see a stairway in a room, leave, 
and then come back—there may be a monster in the stair¬ 
way's place. 

Oh, one more thing: Watch out for traps. 
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How It’s Done 

Let's look at the listing. Line 10 assigns variable names to fre¬ 
quently used numbers (to save memory), and calls a sub¬ 
routine that creates redefined characters. 

Line 15 makes the dragon show up at the beginning of 
the program. 

Lines 35-75 give you the player option. Memory location 
53279 reads the function keys. A value of three means the 
OPTION key is pressed, and a value of six means the START 
key is pressed. 

Line 90 ends the program if you've gone up to the 
surface. 

Lines 100-105 draw the box for the floor plan. POKE 
756,BASE/256 + N2 resets the character set. POKE 77 in line 
100 disables the rotating colors that appear if there is no key¬ 
board input for several minutes. Lines 120-195 select the 
room contents and draw the floor plans. Lines 210-230 draw 
the dragon. 

Lines 245-350 animate the player with redefined 
characters. 

Lines 355-380 tell the computer what to do, depending 
on what's in the room. The strings store names and graphic 
shapes for the monsters. Lines 385-390 make the screen flash 
when you meet a monster. 

Line 400 sets the strength, dexterity, and hit points for the 
monsters. It also decides if you're facing a poisonous monster. 

Lines 410-555 handle the combat. Lines 565-685 decide 
what you found, if anything. 

Lines 760-790, 795-830 and 835-840 contain subroutines 
for stairway up, stairway down, and traps. 

The subroutine at 845 prints character values on the 
screen; 850 is the sound routine for the rings; 855 is used 
when you pick up certain rings. Line 860 disables the BREAK 
key. Line 865 blows dragon fire. 

Lines 870-920 end the game when you win or die. Lines 
925-935 start the game again. 

Next comes the data for monster names and graphics. 

Line 960 is a delay loop. 

Lines 965-985 place the monster in the room. The po¬ 
sition depends on which direction the player came from. 

Line 990 prints an often used phrase. 
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The rest of the program redefines the character set. Be 
careful typing the DATA statements, or your graphics won't 
look right. 

Dragon’s Den 

For error-free program entry, read “The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

ML 5 DIM S$(l) y M$(9) , L$ ( 17) : M$="YOU SEE A” 

CC 10 G=l: V = 0: Jf 0: Q = 0: E = 245: K = 330: N0 = 0: Nl = l : N2 
=2:N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N9 = 9:GO 
SUB 10000 
IB 15 QW= 1 : GOTO 205 

OP 20 QW = 0: GRAPHICS N2+16: SETCOLOR N4,N8,N0:GO 
SUB 860 

PE 25 POSITION N2,N2:7 #6; "THE DRAGON ’ S DEN":P 
OS ITI ON N 9 ,N 4:? #6; "BY":POSITION N2,N6:7 
#6;"KEN & JOANN DAVY" 

JJ 30 FOR Z = N 1 TO 3000: NEXT Z 

CO 35 GRAPHICS N2 + 16: SETCOLOR N0 , N0 , 1 4 : SE TOOL 0 
R N4,N3 , N6:POSITION N5,N3:7 #6;"STANDARD 

ii 

BF 40 POSITION N 6 , N 7 : 7 #6; " PLAYER H : SOUND 0,121 
, 10,8:FOR Z =1 TO 20:NEXT Z:SOUND 0,0,0,0 
:POKE 53729,N8:GOSUB 860 

EN 45 X=PEEK(53279):IF X = N6 THEN P = N7:N = N7:H = N 
7:L=N1:GOTO 90 

BJ 50 IF X = N3 THEN FOR Z = N1 TO 130-.NEXT Z : GOTO 

60 

AM 55 GOTO 45 

FL 60 POSITION N5, N3: 7 #6;" RANDOM "-.SOUND 0,6 
0,10,8:FOR Z=1 TO 20:NEXT Z:SOUND 0,0,0, 

0 

BO 65 POKE 53279, N8: X = PEEK (53279) : IF X = N6 THEN 
80 

BN 70 IF X = N3 THEN FOR Z = N1 TO 130:NEXT Z:GOTO 

35 

BA 75 GOTO 65 

JM 80 P=INT (RND (N1 ) *N6) +N4: N=INT ( RND (Nl) *N5) + N 
5: H= I NT (RND <N1)*N7) + N3: L = N1 
NA 85 IF L = N0 THEN 905 

MP 90 GRAPHICS N2:P0KE 756,BASE+N2:SETCOLOR N4 
,N8,N2:SETCOLOR N2,N2,N6:SETCOLOR N0,N8, 
N2:SETCOLOR N3,10,N8:A=10:B=N4:GOSUB 860 
MK 95 IF L = N5 THEN 200 

JA 100 POKE 77,N0:POSITION N1,N0:7 #6;"CQ>C16 R 
C E J":FOR Z = N1 TO N8:P0SITI0N N1,Z:7 #6; 

" CY>":POSITION 18,Z:7 #6; " CY>":NEXT Z 
ML 105 POSITION N 1 , N9 : 7 #6;"{ZH16 R>CC>" 
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EH 1 10 
LI 1 15 
00 120 

HH 1 25 


0J 130 


KP 135 
FN 140 


EC 145 


DD 150 
HK 155 


AP 160 
SH 165 


FD 170 


HA 175 


CE 180 


EA 185 


? "USE JOYSTICK TO MOVE” 

GOSUB 845 

M=INT(RND<N1) * 13) :W = N0:ON L GOTO 125,14 
5,170,185,210 

I=M+N2:POSITION N4,N0:7 #6;"CW}C5 R} 

C W } C 3 R> CW> ” s POSITION N4,N2:7 #6;"CY} 

C 5 SPACES} C Y } C3 SPACES} (Y> POSITION N4 
,N3:? #6;"CA3CR3 CR}CW3 CX3 CW}CR3CX3 
C2 R3CD3" 

POSITION N1,N4:7 #6;"CA}CR} CD3":POSITI 
ON N4,N5s7 #6;”CY}C3 SPACES}CY} 

C 3 SPACES} C Y } 11 : POSITION N4,N6s? #6;” 
CY}C3 SPACES}CA}CR3 CR3CS3C4 R3 CD}” 

POSITION N8,N7:7 #6;”CY}" 

POSITION N4,N8:7 #6;"CY}C7 SPACES3CY3"2 
POSITION N4,N9:7 #6;"CX}C3 R3CX3C3 R} 
CX}”:RESTORE 940:GOTO E 

SETCOLOR N0,12,N2:SETCOLOR N4,12,N2:I=M 
+N9:POSITION N5,N0:7 #6;”CW3C4 R3CW3 
C 4 R3 CW3 "2 POSITION N5,N2s7 #6;”CY3 
C 9 SPACES}CY3" 

POSITION 10,1:7 #6; ,, CY3 ,, 

POSITION N1,N3:7 #6;"CA3CR3 CR3CS3CR} 

C 2 R } C X } C 2 R} CR3CS3 {R} (D3-POSITION 1 
5,N4:7 #6;"CY3”:POSITION N5,N5:7 #6;" 

CY3”:POSITION N5,N6:7 #6;"CA}CR3 C2 R3 
C W} CR} C 2 R3 CS} CR} CD} " 

POSITION 5,8:7 #6;"CY3” 

POSITION 10,N7:7 #6;"CY3C4 SPACES3CY3”: 
POSITION N 5,N 9:7 #6;"CX3C4 R3CX3C4 R3 
CX}”:RESTORE 945:G0T0 E 

SETCOLOR N0,N1,N2:SETCOLOR N4,N1,N2:I=M 
+15:POSITION N4,N0:7 #6;"CW}C3 R3CW3 
C 3 R}CW3 ”:POSITION N4,N2:7 46;”CY3 
C 3 SPACES}CA}C3 R3CD}" 

POSITION N1,N3:7 #6;"CA3C2 R3CX3 C R 3 
CW}CC3-C3 SPACES} CZ} CW3 CR3 C2 R}CD3”:POS 
ITI ON N7,N4:7 #6;"CY}C5 SPACES3 CY3 ”:POS 
ITI ON N1,N6:7 #6;"CA3C2 R3 C2 R3CX3CE3 
C 3 SPACES} CQ3 CX3 C2 R3 C R 3 C D 3 ” 

POSITION N 8,N 7:7 #6; " CA3C3 R} CD}POSIT 
ION NB,N9:7 #6; "C X} C 3 R3 CX3”:RESTORE 95 
0: GOTO E 

SETCOLOR N0,N5,N6:SETCOLOR N4,N5,N6:I=M 
+ 21:POSITION N5,N0:7 #6; " CW3 C6 R}CW}”:P 
OSITI ON N5,N2:7 #6;"CY3C6 SPACES} CA3 
C 2 R } C E } ” 
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OH 190 POSITION N1 , N3: ? #6;'* CA3CR3 CR3CD3 

CQ>CR3 C R > CD} CZ3 CR3 CD3 POSITION N5, 

N4: 7 #6; "CZ3 CW3 CR3 CC3 C3 SPACES3 CY3 ":POS 
ITION N1,N6:? #6;"CA3CR3 CR3CW3CX3CR3 
C W 3 C R 3 C W 3 C X 3 C 3 R 3 C R 3 C D 3 " 

GD 195 POSITION N5 5 N7:7 #6;"CY3 CY3 {Y3":POS 
ITION N5, N9: ? #6;"CX3C2 R3CX3C2 R>CX> M s 
RESTORE 955:GOTO E 
GC 200 GRAPHICS N1 

MN 205 IF QW= 1 THEN GRAPHICS NU16 
IF 2 1 0 POKE 756, BASE + N2 : SETCOLOR N0, N0, N0: SETC 
OLOR N1,N3,N5:SETCOLOR N2,N7,12:SETCOLO 
R N4,N0,N0:GOSUB 860 

ND 2 1 5 POSITION N4,N2:7 #6; M CF3CM*CJ3CF>CG} 

CN> CF3 CG3 CH3 CM3 CG3 " :POSITION N5,N3:? #6 
; " CH3- C G 3 C N 3 C F 3 (J3-POSITION N5,N4:? 

#6; " CF3 CG3 CN3 * CN3 CF3 CG3 ":POSITI ON N4 
, N5:7 #6;"CH3 CH3CGJ'CF>CJ> CJ3-" 

CG 220 POSITION N4,N6:7 #6; " C H 3 C J 3 CH> C T > C J > ' 
CH3 CT3 CJ3 CH3 CJ>":POSITION N4,N7:7 #6; “ 

C H 3 C J 3 C V 3 C M 3 C G 3 C N 3 C F 3 C M 3 C B > C H 3 C J 3 ":POSI 
TION N4,N8:7 #6;"CH3CJ3CV3CH3CJ>CN>CH} 
CJ3 CB3 CH3 CJ3 ":POSITION N5,N9:7 #6; " CH3 
C J 3 C J 3 C X 3 C H 3 C H 3 C J 3 " 

HH 225 POSITION N6,10:7 #6;"CH3 CJ3CN3CH3 C J 3 " 
-.POSITION N6 , 11:7 #6:" CH3CF3 C U 3 C G 3 
CJ3":POSITION N6, 12:7 #6; n CHICF3 C U 3 
CG3CJ3":POSITION N6,13:? #6;"CH} CH> 

C U 3 C J 3 C J > ” 

EJ 230 POSITION N6,14:7 # 6 ; " C B > C H > C K 3 C L > C J > 
CV>":POSITION N7 5 15:7 #6;"CV3 
C 3 SPACES 3- CB> " : POSITION N7, 16:7 #6;" 

C J 3 C 3 U 3 C H 3 M 


EA 

2 35 

IF QW=1 THEN FOR 

II 

N 

TO 700:NEXT 

Z 

: GOTO 



865 






GK 

240 

GOTO 380 






GA 

245 

POSITION A,B:7 

:SOUND N0,25 

9 

N0, N8 



:SOUND N0,N0,N0, 

N0 





HD 

250 

IF C=N1 THEN GOSUB 960 




JL 

255 

IF STICK (N0) = 14 

THEN 

S= 1 4 : 

LOCATE 

A 

2 

1 

ea 

r. 



, X : IF X = 32 THEN 

280 





JE 

260 

IF STICK (N0)=13 

THEN 

S= 13: 

LOCATE 

A 

, B + Nl 



, X: IF X =32 THEN 

290 




ND 

265 

IF STICK(N0)=N7 

THEN 

S = N7 : 

LOCATE 

A+Nl , B 



, X: IF X = 32 THEN 

300 





JB 

270 

IF STICK(N0)=11 

THEN 

S= 11: 

LOCATE 

A 

— N 1 , B 



,X: IF X = 32 THEN 

3 15 




HD 

275 

GOTO 255 
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PN 280 POSITION A , B : 7 4*6; "(T": POSITION A,B-N1:7 

4*6; "C” : SOUND N0,50 , N0 , N8 : SOUND N0,N0,N 
0,N0:GOSUB 960 

LC 285 POSITION A , B : 7 4*6;" ” : B = B-N 1 : C = N 1 : GOTO 
K 

PM 2 90 POSITION A , B : 7 #6 ; ** C” : SOUND N0,50,N0,N8 

: SOUND N0,N0,N0,N0:POSITI ON A,B+N1:7 4*6 
; "tF" : GOSUB 960 

LB 295 POSITION A , B : ? 4*6;" ”:B=B+N1:C=N1:GOTO 
K 

ED 300 POSITION A , B : 7 4*6 ; " E" : GOSUB 960 

LG 305 POSITION A,B:7 4* 6 ; ” t3” : SOUND N0,50,N0,N8 

:SOUND N0,N0,N0,N0:GOSUB 960 
KC 310 POSITION A , B : 7 4*6;” " : A = A + N 1 : C = N0 : GOTO 

K 

EL 3 1 5 POSITION A , B : 7 4*6; "fT" : GOSUB 960 

LF 320 POSITION A,B:7 4* 6 ; " E” : SOUND N0,50,N0,N8 

:SOUND N0,N0,N0,N0:GOSUB 960 
OM 325 POSITION A , B : 7 4*6;" " : C = N0 : A = A-N 1 

PD 330 IF D = N 1 THEN POSITION A,B:7 **6; "E" : D = N0 

:GOTO 355 

DH 335 LOCATE A + N 1 , B , X : LOCATE A-N 1 , B , X 1 : LOCATE 
A,B+Nl,X2:LOCATE A,B-N1,X3 
BI 340 IF X < 32 AND Xl<32 OR X 2 < 3 2 AND X3=l OR 

X 2 < 3 2 AND X 3 = 4 OR X2<32 AND X 3 = 2 5 OR X 2 

<32 AND X 3 = 23 THEN D = N1 
IK 345 IF X 2 < 3 2 AND X 3= 1 9 THEN D = N1 

GM 350 GOTO 245 

IE 355 IF M< N7 THEN FOR Z = N0 TO M: READ L$, S$: N 

EXT Z:7 Mt;Li:GOSUB 965 

AD 360 IF M = N7 THEN 760 

BB 365 IF M = N8 THEN 795 

M 370 IF M=N9 THEN 835 

DD 375 IF M >N9 THEN 7 :? s? "ROOM EMPTY" :H = H + L 

:GOTO 110 

NG 380 IF L = N5 THEN 7 M$; " DRAGON ! ” s I =30 : M = N 1 

GL 385 FOR Z=1 TO 3:F0R Zl=8 TO 0 STEP -1:SETC 

OLOR N1,N2,N6:SOUND N0,60, 10 , Z1:SOUND N 
1,47, 10,Z1:NEXT Z1 

BM 390 SETCOLOR N 1 , 1 2 , 1 0 : SOUND N0 , N0 , N0 , N0 : SOU 
ND N1,N0,N0,N0:FOR Z2=l TO 50:NEXT Z2:N 
EXT Z 

LB 395 IF L = N5 THEN SETCOLOR N1,N3,N5 

NJ 400 T = L + N4 : 0= I+T : F = N0 : I F L>N1 AND M = N3 THEN 

W = N 1 

LK 405 GOSUB 845 

AJ410 IF F = N 1 THEN 7 "IT’S STILL ALIVE!” 

BJ415 7 "PRESS TRIGGER TO ATTACK" 

AE 420 IF STRI6 (N0) =N0 THEN 490 
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EH 425 IF STICK(N0)<15 AND L = N5 THEN ? "YOU’RE 
CUT OFF!" 

Nt! 430 IF STICK (N0) < 15 THEN 440 
BL 435 GOTO 420 

EC 440 IF V<N6 OR V>N9 THEN Q = Nl:GOTO 505 
KB 445 IF V>N5 THEN ? :? s? "PRESS TRIGGER TO 

USE RING":GOSUB 960 
EC 450 IF STRIG (N0) = N0 THEN GOTO 465 

BE 455 IF STICK (N0) < 15 THEN Q = Nl:GOTO 505 

6H 460 GOTO 450 

SB 465 IF U< N1 THEN V=N0s? "OUT OF CHARGES!"sF 

OR 2=N1 TO 100SNEXT ZsGOTO 505 
L! 470 IF V=N6 THEN 0=0- 1 2s U=U-N 1 : GOTO 850 

IP 475 IF V=N7 THEN 0 = 0-22: U = U-N 1 s GOTO 850 

HB 480 IF V = N8 THEN 0=0-36sU=U-N1sGOTO 850 

HC 485 IF V = N9 THEN 0= 0+1 5: U = U-N 1 : GOTO 850 

K6 490 X = INT (RND <N1 ) *10) : IF X<=N THEN 0 = 0-P:H = 

H + P:GOTO 500 

DJ 495 FOR Z = N0 TO 15:S0UND N0, 15,N0, ZsNEXT Z: 

FOR Z=15 TO N0 STEP -IsSOUND N0,15,N0,Z 

:NEXT Z:GOTO 505 

Jfi500 FOR Z=N0 TO 15 STEP +N2sSOUND N0,15,N0, 

ZsNEXT Z:SOUND N0,N0,N0,N0 
BI 505 X=INT (RND <N1 ) *10) : IF X<=T THEN H = H-I:GO 
TO 515 

DA 510 FOR Z=N0 TO 15:S0UND N0, 15,N0,ZsNEXT Zs 


FOR Z =15 TO N0 STEP -IsSOUND N0,15,N0,Z 



:NE X T Z: 

GOTO 

535 



AI 51 5 

IF 

L = N5 

THEN 

865 



JF 520 

FOR Z = N0 

TO 

12 STEP +N2:SOUND 

N0 , 1 

5, N0 


Z: 

NEXT Z 

s SOUND N0.N0.N0.N0 



HJ 525 

IF 

J = NO 

THEN 

W = N0 



KI 530 

X = 

INT(RND(N1)*N8)sIF W=N1 AND 

X < L 

THEN 


7 

“POISONED 

BY MONSTER!”:G=N0: 

GOTO 

895 

AE 535 

IF 

H< N 1 

THEN 

895 



LK 540 

IF 

Q = N 1 

THEN 

S$=" GOSUB 965 



HK 545 

IF 

Q=N 1 

THEN 

Q = N0 s GOTO 110 



HB 550 

IF 

O >N0 

THEN 

F=N1:GOTO 405 



LG 555 

7 

: ? s ? 

"YOU 

WON! ,, :S$= , ‘ "s GOSUB 965 

HJ 560 

IF 

J = N8 

THEN 

W = N 1 



OF 565 

IF 

W = N1 

AND 

L >N1 AND M = N3 THEN 

? s 

? MS 


" MAGIC SWORD!"s? :P=P+LsS*=“j”sGOSUB 9 
65 

GP 570 IF W = N 1 AND L>N1 AND M = N3 THEN FOR Z=1 

TO 300 s NE X T Z:S$= M GOSUB 965 

BL 575 X=INT ( 100IRND (N1 ) +N1 ) : IF X>10 THEN 665 

IN 580 ? MS;" RING ! '* : U=INT (N5IRND (N1 ) +N1 ) sGOSU 

B 990 

6D 585 S$= " k " : GOSUB 965 
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OP 590 IF STR I G ( N0 ) =N0 THEN V=Xs? :? : Z2=655: O 

N V GOTO 605,610,615,620,625,630,635,64 

0,645,650 

OH 595 IF STICK (N0) < 15 THEN 660 

GN 600 GOTO 590 
U605 L=N2:GOTO 855 
LG 610 L = N3: GOTO 855 
LH615 L = N4: GOTO 855 

ftP 620 G=G*N2:? "GOLD DOUBLEDGOTO Z2 

HD 625 G=N0: ? “GOLD LOST" : GOTO Z2 

NC 630 ? "RING OF ICE!”:GOTO Z2 

CH 635 ? "RING OF FIRE! ”:GOTO Z2 

FG 640 ? "RING OF DESTRUCTI ON! ":GOTO Z2 

CH 645 ? "RING OF LIFE!":GOTO Z2 

GI 650 ? "NO EFFECT" 

KI 655 FOR Z = N 1 TO 500:NEXT Z 
PC 660 S*=" " : GOSUB 965 

DH 665 X=INT<100*RND<N1>+N1>:IF X >N9 THEN 750 
LD 670 GOSUB 845 

GP 675 IF X = N1 AND J = N8 THEN X = N8 

HN 680 ? : 7 :? M*;" POT ION!":J = X:Z2 = 750:GOSUB 

990 

GF 685 S$=” 1 " s GOSUB 965 
FF 690 FOR Z=1 TO 100:NEXT Z 

HF 695 IF STRIG (N0) = N0 THEN ON J GOTO 710,715, 

720,725,730,735,740,745,745 
Oft 700 IF ST ICK( N0)<15 THEN 750 

HJ 705 GOTO 695 

HO 710 ? "POISON! TASTED AWFUL!":G=N0:GOTO 895 
DE715 H= 1 : ? "HIT POINTS LOST !”: GOTO Z2 
HH 720 H = H + H: ? "HIT POINTS DOUBLED !": GOTO Z2 

PD 725 N = N + L: ? "DEXTERITY IMPROVED !”: GOTO Z2 

HN 730 N = N —L: ? "DEXTERITY LOST !": GOTO Z2 
KF 735 P = P + L: ? "STRENGTH IMPROVED !": GOTO Z2 

HP 740 P = P —L: ? "STRENGTH LOST !": GOTO Z2 

GN 745 ? "NO EFFECT" 

PC 750 S*=" ": GOSUB 965 

HH 755 G=G+INT (RND < 1 ) * 10) * (L*L*L> : GOTO 110 

MG 7 60 GOSUB 845 : S* = " C H 3 " : ? M$; “ STAIRWAY UP”: 

GOSUB 990 
HG 765 GOSUB 965 
FE 770 FOR Z = 1 TO 100:NEXT Z 

BJ775 IF STRIG(0)=0 THEN L=L-l:FOR Z=120 TO S 
0 STEP -5:SOUND N0,Z,10,N8:FOR Zl=l TO 
10:NEXT Z 1 :SOUND N0,N0,N0,N0:NEXT Z : GOT 
O 85 

KC 780 IF STICK <0> = 15 THEN 775 
PK 785 S$=" GOSUB 965 
GL 7 90 GOTO 110 
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MG 795 
AL 800 

MB 805 
EP 8 10 
BJ 815 


OG 820 
PF 825 
GG 830 
NA 835 


DK 840 
GA 845 

AE 850 


JA 8 5 5 
FC 860 
JG 865 


PO 870 

AL 875 
GL 880 
ON 885 

OK 890 
GD 895 

HB 900 
AG 905 
LD 910 
PE 915 


EG 920 


PN 925 
DJ 930 
H6 935 


GOSUB 845 

S$=" {J}":? ; ” STAIRWAY DOWN":GOSUB 9 9 

0 

GOSUB 965 

FOR 1=1 TO 100:NEXT Z 

IF STRIG(N0)=N0 THEN L=L+N1:F0R Z=80 TO 
120 STEP N5:SOUND N0,Z,10,N8:FOR Zl=l 
TO 10:NEXT Z1:SOUND N 0 ,N0,N0,N0:NEXT Z: 
GOTO 90 

IF STICK<N0)=15 THEN 815 
S$=" ":GOSUB 965 

GOTO 110 

? :? :? "TRAP!":POSITION A , B : 7 #6; " i " :F 

OR Z = 4 0 TO 150: SOUND N0, Z, 10, N8: NEXT Z: 
FOR Z = N1 TO 10: SOUND N0, 15,N0, 15:NEXT Z 
SOUND N0,N0,N0,N0:L=L+N1:GOTO 85 

? "STR=";P;" DEX=";N;" HP=";H;" GOLD 

= " ; G:RETURN 

FOR Z =1 TO 50:SOUND N0,40, 10,N8:SOUND N 
1,100,10,N8:NEXT Z:SOUND N0,N0,N0,N0:SO 
UND N1,N0,N0,N0:GOTO 535 

? "TELEPORTED TO LEVEL ”;L:FOR Z=1 TO 2 
00:NEXT Z:GO TO 85 

X = P E E K ( 16) : IF X>127 THEN X = X-128:P0KE 1 

6,X:POKE 53774,X:RETURN 

FOR Z1=N1 TO 10:FOR Z=N1 TO 14:SETC0L0R 
N0,N3,Z:SOUND N0,50,NB,15:NEXT Z:SOUND 
N0,N0,N0,N0:NEXT Z1 

IF QW=1 THEN FOR Z=1 TO 100:NEXT Z:GOTO 
20 

IF H< N1 THEN 895 
IF O > N 0 THEN F = N1 

IF O < N1 THEN G = G+10000:? "DRAGON DEAD! 

GOLD=";G:GOTO 910 
SETCOLOR N0,N 0 ,N0:GOTO 405 

? "PLAYER DEAD! ":G = N0:? "GOLD=";G: IF L< 

N5 THEN POSITION A , B : 7 #6;"[^ ,, 

GOTO 915 
7 "GOL D=" ;G 

7 "YOU SURVIVED 1 " 

IF G < N1 THEN FOR Z = N0 TO 255 STEP 10:SO 
UND N0,Z,10,N8:FOR Z1=N1 TO N5:NEXT Zl: 

NEXT Z:SOUND N0,N0,N0,N0:GOTO 925 

FOR Z = 255 TO N0 STEP -10:SOUND N0, Z, 10, 
N8:FOR Z1=N1 TO N5:NEXT Z:SOUND N0,N0,N 
0, N0 

7 "PRESS TRIGGER TO PLAY AGAIN" 

IF STRIG(0)=0 THEN 35 
GOTO 930 
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BK 94 0 DATA N ORC,a, GIANT ANT , o , GIANT RAT , w, 

GIANT SPIDER,{RIGHT}, SKELETON,r, ZOMB 
IE,v, TROGLODYTE,u 

KI 945 DATA N OGRE,u, BUG B A T , x , GIANT LIZARD, 

{PI, GAS BAG,t, GORILLA,m, GIANT BADGER 
,CLEFTI, MAN EATING PLANT,q 
PF 950 DATA N EVIL FIGHTER, a, WEREWOLF, a, MUMM 

Y,v, GIANT HORNET,til, GIANT SNAKE,p, T 

ROLL,I, CYCLOPS,{ 

IJ 955 DATA N EVIL WIZARD, s, WRAITH, 2 , MINOTAU 



R,(UP}, 

G I ANT 

SCORE I ON 

5 n, VAMPIRE, 



{DOWN}, 

TITAN 

,y, DEMON 

, CO> 




LD 960 

FOR 

Z = N 1 

TO N9:NEXT Z: 

RETURN 




KL 965 

IF 

S= 1 4 

THEN 

POSITION 

A, B — N 1 : 

9 

#6; 

S^ 

KE 970 

I F 

S = 1 3 

THEN 

POSITION 

A , B + Nl : 

7 

#6; 

S* 

MK 975 

IF 

S = N 7 

THEN 

POSITI ON 

A+N1,B: 

*7 

#6; 

S^ 

KF 980 

IF 

S= 1 1 

THEN 

POSITION 

A — N1 , B: 


#6; 

S^ 


IG 985 RETURN 

HA 990 ? "PRESS TRIGGER TO USE” : RETURN 

GN 10000 BASE = PEEK < 106) - 8 : CHSET = BASE * 256 : IF PE 

EK(CHSET+512)=229 THEN RETURN 
OH 10010 GRAPHICS 18: SETCOLOR N4 , N3 , N0 : SETCOLO 
R N0,N1,10:POSITION N2,N2:7 #N 6 ;"THE 

, DRAGON'S DEN" 

IN 10020 POSITION N2, N5: ? #N 6 ; "PLEASE WAIT FOR 
” :POSITION N3,N7:2 #N6;"35 SECONDS... 

II 

HN 15000 FOR I =N0 TO 1023: POKE CHSET+I . PEEK < 57 
344+1):NEXT I 
BG 15001 RESTORE 15005 

Cl 15002 READ A: IF A<N0 THEN RETURN 
EH 15003 FOR J = N0 TO N7: READ B:POKE CHSET + AIN 8 
+J,B:NEXT J 
CL 15004 GOTO 15002 

AH 15005 DATA 64,229,22,215, 124,30,60,106,161 
PP 15006 DATA 73,0,230,234,234,28, 120, 150,230 
DG 15007 DATA 7 9,56,124,215,253,189,184,68,68 
LB 15008 DATA 80,254,225, 1 16,56,62,92,31,23 
BK 150 09 DATA 89,24,24,24,24,24,24,24,24 
LE 15010 DATA 92,56, 16,124,124, 124,56,56,56 
EC 15011 DATA 93,12,30,61,61,60,62,126,18 
SI 15012 DATA 94,0,0,0,59,126,255,128,64 
PJ 15013 DATA 95,36,149,93,250,255,90, 149,37 
EC 15014 DATA 97,0,48, 120, 120, 120,48,48,0 
HC 15015 DATA 98,0,26,60,88,28,36,64,0 
HJ 15016 DATA 99,0,12,30,45,12,58,1,0 
KN 15017 DATA 100,0,88,60,26,56,36,2,0 
HP 15018 DATA 10 1,0.48.120,180,48,92. 128,0 
PC 15019 DATA 102,0,0,0,0,48,120,120,120 
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Gfl 15020 

AK 1502 1 
EH 15022 
El 15023 
DE 15024 
BE 15025 
6C 15026 
GP 15027 
LD 15028 
AI 15029 
KM 15030 
KI 15031 
DL 15032 
LH 15033 
OC 15034 
OE 15035 
HB 15036 
JI 15037 
EK 15038 
OD 15039 
FA 15040 
NA 1504 1 
HE 15042 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


103 , 

104 , 

105 , 

106 , 

107 , 

108 , 
1 09 , 
110 , 
111 , 
112 , 

113 , 

114 , 

115 , 

116 , 

117 , 

118 , 

119 , 

120 , 

121 , 

1 *-> *"> 

± JL. * | 

123 , 

124 , 

-1 


48 , 48 , 16 , 16 , 0 , 0 , 0,0 
0, 16,38,56, 126,32, 16,0 
0,126,66,66,66,66,126,0 
16, 16, 16, 16, 16, 16,56, 16 
0,0,28,20,28,0,0,0 
0,0,8,8,28,28,0,0 

24.60.255.189.189.189.219.24 
0,32,80,128,190,255,42,0 
0,74,42,237,255,237,42,74 
0,8,20,16,12,126,255,0 

28,19,18,16,56,16,124,124 

8,28,42,8,28,20,20,0 

0,13,62,92,60,124,254,0 

28,62,127,62,28,215,36,82 

48,120,252,180,180,48,48,0 

0,48,60,48,56,40,32,0 

0,0,60, 126,255, 128, 124,0 

0,238, 124, 16,0,0,0,0 

24,126,255,255,255,255,60,60 

62.107.255.119.62.28.12.24 
56,108,254,254,254,254,56,56 
0,0,24,60,126,90,24,0 
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Memory Match 

Dave Miller 


Memory (yours, not the computer's) is the key to winning 
this game of matching shapes. For two players. 

In this popular memory game, you are presented with a game 
board made up of 21 squares. Each square is identified by a 
letter, and different shapes are hidden behind the squares. The 
object is to match the hidden shapes by picking the appro¬ 
priate squares. 

Each player picks two squares per turn. If they match, the 
player's score increases by ten points and the player gets an¬ 
other turn. One extra point is added for each subsequent 
match; for instance, the tenth pair is worth 20 points when 
correctly matched. If the two squares you want revealed don't 
match, the squares will again go blank, no points will be 
awarded, and the other player takes a turn. 

The board also contains one penalty square. The penalty 
square costs you five points (and forfeits your turn) every time 
you pick it, so you would be well advised to remember where 
it is. 

The game continues until the final pair of characters have 
been matched. At that time the program checks to see which 
player has the most points, or if a tie exists. Pressing the ESC 
key will end the game, or you can press any other key to play 
again. 

Built-in checks make sure that you enter only valid letters 
(A-U) when selecting a square. If you do hit an invalid key, 
you are notified by a message at the top of the screen and can 
then try again. The program also will not allow you to choose 
the same square for your first and second guesses in any given 
turn. 

Memory Match 

For error-free program entry, read "The Automatic Proofreader” in Chapter 1 before typing 
in this program. 

GRAPHICS 17:POKE 708,44:POKE 709,52:POKE 
712,56 

DL = PEEK (560) +256*PEEK (561 ) +4:POKE DL + 9,7 
POSITION 4,8:7 #6;"MEMORY MATCH" 

POSITION '2, 15:7 #6;"please stand by" 

REM 


ON 10 

GD 20 
AH 30 
FN 4 0 
EP 4 7 
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GK 48 REM *** ENABLE CHSET *** 

FB 49 REM 

HK 50 GOSUB 670:7 #6; " (CLEAR} POKE 756, CHSET/ 
256 
FA 57 REM 

GA 58 REM *** SET UP GAME BOARD *** 

FC 59 REM 

BM 60 POKE 559,0: POKE 708, 142: POKE 709,134:POK 
E 711,30:POKE 712,0 

JA 70 DIM CHR <21 ) , COLR <21 ) , MATCH (11): POKE DL + 2 
,7:POKE DL+21,7:POKE DL+9,6 
KD 80 PLAYER = 0: SCORE 1=0: SCORE2 = 0: COUNT = 0: X = 0:L 
= 33 

AF 90 POSITION 3,1:7 #6; "MEMORY MATCH" 

OE 100 SCR = PEEK <88) 256*PEEK <89) : POKE 16,64: PO 

KE 53774,64 

EC 110 FOR A = 2 TO 16 STEP 2:F0R B = 3 TO 17:P0KE 

SCR + A + B*20,75:NEXT B: NE X T A 
EG 120 FOR A= 1 TO 4:F0R B = 42 TO 56:POKE SCR + B + 

X,76:NEXT B:X=X+100:NEXT A 
BJ 130 FOR A = 63 TO 75 STEP 2:POKE SCR+A,L:L = L + 
1:NEXT A 

JM 14 0 FOR A = 1 6 3 TO 175 STEP 2:P0KE SCR + A,L:L = 

L+l:NEXT A 

JP 150 FOR A = 2 6 3 TO 275 STEP 2:P0KE SCR + A,L:L = 

L+1:NEXT A 

EP 160 GOSUB 54 0: POKE 559,34 
IC 167 REM 

KF 16 8 REM *** CHARACTER PLACEMENT * * * 

IE 169 REM 

MG 170 RESTORE I NT < R N D < 0 > *9) + 1 90 : FOR A= 1 TO 11 
:READ CHR,COLR:CHR(A)=CHR:COLR(A)=COLR: 
NEXT A 

NM171 FOR A= 1 2 TO 21-.READ CHR , COLR : CHR ( A ) =CHR 
: COLR < A > =COLR:NEXT A 

FB 180 DATA 129,14,130,20,131,30,132,186,133,8 
6,134,76,135,40,136,218,0,0,138,54,137, 
1 98 

JK 18 1 DATA 130,20, 138,54,129, 14, 137, 198, 131,3 
0,136,218,132,186,135,40,133,86,134,76 
FD 132 DATA 13 1,30, 135,40,0,0, 138,54,129, 14, 13 
2,186,130,20,137,198,134,76,136,218,133 
,86 

JM 18 3 DATA 132,186,138,54,129,14,13 7,198,13 4, 
76, 133,86, 136,2 18, 135,40, 131,30, 130,20 
FF 184 DATA 129,14,0,0,131,30 , 136,218, 1 30,20 , 1 
38,54,133,86,135,40,134,76,132,186,137, 
1 98 

JO 13 5 DATA 138,54,137,198,136,213,135,40,134, 
76, 133,86, 132, 186, 131,30, 130,20, 129, 14 
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FH 186 


Kft 187 
FJ 188 


KC 189 

NJ 190 
HO 226 
NH 227 
PC 228 
IB 229 
KG 230 
LC 2 40 
PF 242 
JH 245 

LD 250 
U 260 

DN 270 

61 280 

DO 290 
AL 300 
GH 305 
JD 307 

BN 308 
GN 310 
HB 320 


DU 330 


PK 335 

CO 340 
LN 350 
IC 356 
ID 357 
LJ 358 
IF 359 
JA 360 


DATA 129, 14,0,0, 131,30, 136,218., 130,20., 1 
33,54,133,86,135,40,134,76,132,186,137, 
198 

DATA 132 .,186, 138,54,129,14, 137, 198, 13 4, 
76,133,86,136,218,135,40,131,30,130,20 
DATA 129,14,130,20,131,30,132,186,133,8 
6,134,76,135,40,136,218,0,0,138,54,137, 
198 

DATA 138,54,137,198,136,218,135,40,134, 
76,133,86,132,186,131,30,130,20,129,14 
FOR X =1 TO 10:MATCH(X) =0:NEXT X 
REM 

REM *** READ AND MATCH *** 

REM ***C3 SPACES1KEY PRESS C 4 SPACES}!** 
REM 

GUESS = 0:TEMP 1=0:TEMP2 = 0 
GOSUB 570 

P=PEEK(764):IF P=255 THEN 242 

FOR S=1 TO 5:SOUND 0,50*(S+GUESS+10),10 

,14:NE X T S:SOUND 0,0,0,0 

GOSUB 570 

RESTORE 270:TRAP 575:F0R X=1 TO 21:READ 
V, Z 

DATA 63,103,21,105,18,107,58,109,42,111 
,56,113,61,115,57,203 

DATA 13,205,1,207,5,209,0,211,37,213,35 
,215,8,303,10,305 

DATA 47,307,40,309,62,311,45,313,11,315 
IF POY THEN NEXT X 
IF NOT CHR(X) THEN 370 

FOR C=1 TO 10:IF CHR(X)=MATCH(C) THEN 5 
75 

NEXT C 

GUESS=GUESS+1:POKE 66,0 

IF GUESS=1 THEN TEMP 1=CHR(X):POKE 710,C 
OLR< X) :POKE SCR+Z,CHR < X) : A=Z :GOSUB 570: 
GOTO 240 

IF GUESS = 2 THEN TEMP2 = CHR(X) : IF TEMP 1=T 
EMP2 THEN B=Z:POKE SCR+Z,CHR(X):GOSUB 5 
70:GOTO 360 

POKE 711,COLR< X) :POKE SCR + Z,CHR ( X) +64:B 
= Z:GOSUB 570:GOTO 360 
NEXT X 

GOSUB 570:GOTO 240 
REM 

REM *** PENALTY FOR *** 

REM *** BLANK SQUARE *** 

REM 

IF TEMPI AND TEMP2 THEN 430 
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AH 370 

BE 380 

CF 390 

DE 395 

AP 400 

BP 4 10 

CN 415 

IB 427 
PH 428 
ID 429 
DF 430 
PP 431 

IE 432 
GH 450 
HI 460 
6L 470 

OD 480 
HO 490 
GF 500 

NH 510 
EL 520 
IC 527 
HH 528 
IE 529 
PD 530 

ID 537 
ND 538 
IF 539 
GN 540 

HA 550 


HD 560 


IA 570 
EP 57 1 
IC 572 


POKE 66,0: SOUND 0,42,2, 12: IF PLAYEROl 
THEN 400 

SC0RE1=SC0RE1-5:POKE 712,52:F0R W=1 TO 
100:NEXT W 

GOSUB 580:POKE 712,0:POSITION 3,1:7 #6; 
"(3 SPACES > f gg CT=lKl P. , <: 3 SPACES}" 

FOR W= 1 TO 300: NE X T IMPOSITION 3,1:7 #6 
;"MEMORY MATCH":GOTO 530 

SC0RE2=SC0RE2-5:POKE 712,52:FOR W=1 TO 
100:NE X T W 

GOSUB 5 9,0 : P O K E 7 1 2,0 : POS I T I ON 3,1:7 #6; 
" C3 SPACES>ra3TEH3?:C3 SPACES}" 

FOR W= 1 TO 300: NE X T IMPOSITION 3,1:7 #6 

:"MEMORY MATCH":GOTO 530 
REM 

REM *** CORRECT MATCH *** 

REM 

IF TEMP10TEMP2 THEN 520 

SOUND 0,100,10,10:FOR W=1 TO 200:NEXT W 

:SOUND 0,0,0,0:COUNT=COUNT+1 

MATCH(COUNT)=TEMPI 

IF PLAYEROl THEN 490 

SCORE1=SCORE1+10+COUNT:GOSUB 580 

POKE SCR+A-40,0:POKE SCR+B-40,0:IF COUN 

T=10 THEN 600 

PLAYER=2:GOTO 530 

SC0RE2=SC0RE2+10+COUNT:GOSUB 590 

POKE SCR+A-40,0:POKE SCR+B-40,0:IF COUN 

T=10 THEN 600 

PLAYER=1:GOTO 530 

FOR W=1 TO 500:NEXT W 

REM 

REM *** ERASE CHARACTER *** 

REM 

SOUND 0,0,0,0:GOSUB 540:POKE SCR+A,0:PO 

KE SCR+B,0:GOTO 230 

REM 

REM *** UPDATE PLAYER'S TURN *** 

REM 

POKE 66,0:PLAYER = PLAYER+1: IF PLAYER >2 T 
HEN PLAYER=1 

IF PLAYER=1 THEN POSITION 0,20:7 #6;"pl 
ayer {Q}":POSITION 12,20:7 #6;" 

C8 SPACES}":RETURN 

IF PLAYER=2 THEN POSITION 12,20:7 #6;"p 
layer CR}":POSITION 0,20:7 #6;" 

C8 SPACES3- ” : RETURN 

POKE 764,255:POKE 66,IzRETURN 

POKE 764,255:RETURN 

REM 
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IF 573 REM ** * INVALID KEY PRESSED *** 

IE 574 REM 

LC 575 POSITION 3,1s? #6;” gr .Hj=lTf! ■ g f = X T H : FOR W 
= 1 TO 200:NEX T W 

EH 576 POSITION 3,1s? #6; "MEMORY MATCH" s GOTO 
240 
IH 577 REM 

OG 578 REM *** UPDATE CURRENT SCORE *** 

IJ 579 REM 

61580 POSITION 0,22s? #6;"C5 SPACES} H s POSITIO 
N 2,22s? #6;SCORE1sRETURN 
NA 590 POSITION 12,22s? #6;”C5 SPACES} POSITI 
ON 14,22s? #6;SC0RE2sRETURN 
IJ 597 REM 

AH 598 REM * * * I 4 SPACESJEND OF GAME I4 SPACES}* 

II 

IL 599 REM 

HO 600 POKE 66,0 s FOR W=1 TO 100; C = PEEK (53770) : 

POKE 712,C s NE X T WsPOKE 712,0 
DG610 IF SCORE1 >SC0RE2 THEN POSITION 1,22s? # 

6; "3BGE" 

61 620 IF SC0RE1<SC0RE2 THEN POSITION 13,22s? 

#6; " MiE " 

HP 630 IF SCORE 1=SC0RE2 THEN POSITION 8,22s? # 

6; "SSO" 

KF 635 POSITION 0,20s? #6; "player IQ} " s POSITIO 
N 3,0s? #6;"esc TO END OR" 

BF 640 POSITION 12,20s? #6;"player {R}";POSITI 
ON 3,1s? #6; "PRESS EUP! KEY";GOSUB 571 
PL 650 P = PEEK (764) ; IF P = 255 THEN 650 
IK 655 IF P = 28 THEN CLR s GOSUB 571sP0KE 66,0;G 

RAPHICS 0 s END 

BK 660 GOSUB 571;GRAPHICS 17sCLR ;DL = PEEK (560) 
+256*PEEK (561 ) + 4 ; GOTO 50 
IH 667 REM 

DN 668 REM ***13 SPACES > REDEF I NE CHSET *** 

IJ 669 REM 

AH 670 CHSET =(PEEK(106)-8) *256; IF PEEK(CHSET+9 
*8)=28 THEN RETURN 

KA 680 FOR 1=0 TO 512;POKE CHSET +1 , PEEK < 57344 + 
DsNEXT IsRESTORE 720 

LH 690 READ As IF A=-l THEN SOUND 0,0,0,0 s RETUR 
N 

HG 700 FOR J = 0 TO 7 : READ BsSOUND 0 , B , 1 0 , 1 0 s POK 
E CHSET+AI8+J,B;NEXT J 
HA 710 GOTO 690 

AH 720 DATA 1 , 126, 126, 126,60,24,24,24,60 
KH 730 DATA 2, 15, 15, 15, 15,31,127, 127,7 
ED 7 40 DATA 3,0, 12,25,51,255,24, 12,6 
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OL 750 DATA 4,24,28,30, 16, 17,255, 127,63 

00 760 DATA 5,20,93, 107,62,20,28,20, 119 

CD 770 DATA 6,28, 126,52,62,60,48, 127, 124 

KN 780 DATA 7,102,255,219,255,102,60,36,102 

IB 790 DATA 8,60, 103,253,244,224, 116,29, 15 

PC 800 DATA 9,28, 127,255, 126,28,8,8,255 

PD 810 DATA 10,0,0,0,120,200,254,255,102 

LC 820 DATA 11,52,44,52,44,52,44,52,44 

FC 830 DATA 12, 126,219, 165,219,219,165,219, 126 

BE 840 DATA -1 
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Alphabone Hunt 

Glenn M. Varano 


Learn the alphabet while sniffing out bones in this delightful 
alphabetizing game for children ages five to nine. 

I use an Atari 400 in my first-grade classroom, but finding 
quality programs at the appropriate level has proved to be 
difficult. As a result, I've developed several educational pro¬ 
grams myself. Here is one of them, an alphabetical order pro¬ 
gram (for ages five to nine) called "Alphabone Hunt." 

After a brief initialization, during which characters are re¬ 
defined and player/missile graphics are enabled, the screen 
shows a dog in a doghouse and ten bones scattered about the 
yard. A starting letter is shown at the bottom of the screen, 
and the child must locate the next ten letters in order. 

Letters are revealed by moving the dog (with the joystick) 
until it touches the middle of a bone. That reveals a hidden 
letter. If it is the next letter in the alphabetical sequence, the 
child pushes the fire button; if the child is correct, the letter 
will take its place at the bottom of the screen. The dog wraps 
around the screen horizontally but may not cross the fences at 
the top and bottom. * 

After an incorrect answer, there will be a time penalty 
and the dog is returned to the doghouse. Obviously, the child 
will do best by remembering the locations of as many letters 
as possible. 

The game continues until all letters have been placed in 
order. Total time will be displayed, and a short song will be 
played. Pushing the START button during play resets the 
game to the beginning. 

I've included numerous REM statements for those who 
would like to enhance the game. All REM statements can be 
safely omitted to save on typing and memory. 

Alphabone Hunt 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

PB 10 GOSUB 32000 s CLR 

GC 15 GOSUB 10000: GOSUB 20000:GOSUB 20900:GOSU 
B 6000:POKE 20,0:POKE 19,0:POKE 18,0:GOT 

O 100:REM RESET TIMER 

OF 40 S=STICK (0) : REM JOYSTICK ROUTINE-FROM 
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IP 50 DX = <S = 5 OR S = 6 OR S = 7)-<S = 9 OR S=10 OR S 
= 11) 

HB 60 DY=<S=5 OR S = 9 OR S=13)-<S=6 OR S=10 OR 
S= 14) 

LC 65 POKE 53278, 1 : REM RESET COLLISION REBISTE 
R 

EH 70 RETURN 

GP 100 S = 0: GOSUB 40 

BC 105 IF PEEK <53279) =6 THEN GAME = 1 : GOTO 15:RE 
M START BUTTON TO RESTART GAME 
PN110 IF NOT (DX OR DY) THEN 100 

CH115 POKE 53279,0 

GH 120 X = X + DX: IF X>212 THEN X = 35 

FL 122 IF X < 35 THEN X = 212:REM LETS DOG WRAP AR 
OUND HORIZONTALLY 

HA 125 POKE 53248,X:REM HORIZ POSITION 
EK 130 Y=Y+DY: IF Y>85 THEN Y = 85 

NC 132 IF Y< 20 THEN Y = 20:REM LIMITS DOG VERTIC 
AL MOVEMENT 

FA 133 IF DX< 0 THEN P0*<Y,Y+8)=T*:GOTO 140 
BH 135 P0* (Y, Y + 8) =S»: REM CHANGES DOG FACING 
BH 140 IF PEEK <53252) < >1 OR DX = 0 THEN 100:REM 
NO COLLISION 

IK 149 REM ***COLLISION WITH BONE*** 

LN 150 K= < < X-56) / 16)+1 : IF KOINT(K) THEN 100:R 
EM CHECKS FOR CORRECT HORIZ POS 
IL 160 ON K GOSUB 501,502,503,504,505,506,507, 
508,509,510 

FC 170 POSITION XX,YY:? #6; BL$ : POSITION XX,YY: 

? #6;CHR$<LTR <K> ):FOR T=1 TO 200:NEXT T 
:POSITION XX,YY:? #6;"!”:GOTO 7000 
LH 500 REM ***VARIABLES FOR POSITIONS*** 

CP 50 1 XX=1 : YY = 8: RETURN 
CH 502 XX = 3: YY = 2: RETURN 
FP 503 XX = 5: YY=1 1 : RETURN 
GH 504 XX = 7: YY=16: RETURN 
DF 505 XX = 9: YY = 2: RETURN 
JB 506 XX=1 1 : YY= 1 3: RETURN 
6E 507 XX=13: YY = 4: RETURN 
JI 508 XX=15: YY=14: RETURN 
JJ 509 XX=17: YY=12: RETURN 
GF510 XX = 19: YY = 5: RETURN 
BE 3999 REM ***GAME OVER*** 

IL 4000 TI ME= I NT < < PEEK <19)*256 + PEEK<20) >/60) :S 
EC = TIME—<INT <TIME/60)*60) 

DF 4005 POSITION 9,10:7 #6 ; I NT < T I ME / 60 ) ; " : " ; : I 
F SEC >9 THEN ? #6;SEC:G0T0 4010 
CH 4006 ? #6 ; ” 0 ” ; SEC 
AL 4010 GOSUB 6000 
CH 4020 GAME= 1 : GOTO 15 
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PH 5999 REM ***SONG*** 

LB 6000 RESTORE 6100 
KB 6010 READ N, D 

F6 6020 IF N = -l THEN SOUND 0,0,0,0: RETURN 
KL 6030 SOUND 0,N, 10, 10:FOR S=1 TO DsNEXT S 
HK 6040 GOTO 6010 

BH 6100 DATA 81,64,60,64,81,64,96,64, 121,128,7 
2,32,81,32,96,32,81,64,108,256 
HA 61 10 DATA 81,64,64,64,72,64,81,64,91,128,64 
,32,72,64,81,256 
HO 6150 DATA -1,-1 

60 6499 REM UtGOOD SOUND*** 

GH 6500 FOR N = 25 TO 1 STEP -IsSOUND 0,N, 10, 10: 

NEXT N:SOUND 0,0,0,0 
KH 6510 RETURN 

HI 6999 REM ***CHECK FOR LOW LETTER*** 

GH 7000 FOR L = 1 TO 10 

KD 7010 IF CHR$(LTR(K) )<>LOW$(M,M) AND STRIG<0 
)=0 THEN GOSUB 8000:GOTO 100 

GP 7015 IF CHR$ (LTR <K) ) =LOW$ <M, M) AND STRIG<0> 
=0 THEN GOSUB 7500:GOTO 100 

FL 7 018 NEXT L 

JD 7020 GOTO 100 

0E 7499 REM ***MOVES LETTER TO BOTTOM OF SCREE 

N*** 


01 7500 

01 7510 
KQ 7520 
HP 7999 
CB 8000 

KJ 8010 
LC 9999 
FJ 10000 

JE 10005 

HH 10010 

BH 10015 

FE 10020 

OF 10030 

IK 10040 

NE 10050 


M = M+ 1:POSITION XX,YY:? #6;" "sPOSITION 
M + 3,2 1: GOSUB 6500:? #6; CHR$(LTR(K) ) 

IF M >10 THEN GOTO 4000:REM GAME OVER 
RETURN 

REM ***PENALTY*** 

FOR N=1 TO 500:SOUND 0,N,8,10:NEXT N:S 
OUND 0,0,0,0:Y=45:X=129:GOSUB 20110 
RETURN 

REM * * * DR AW SCREEN*** 

IF GAME >0 THEN ? #6;CHR$ < 125) :GOTO 10 
010 

GRAPHICS 17:SETCOLOR 4,0,4:SETCOLOR 1 
,2,14:SETCOLOR 0,15,10:SETCOLOR 2,8,0 
POKE 756,PEEK<106)+5:REM RESETS POINT 
ER TO NEW CHARACTER SET 

POSITION 3,2:? #6;”!C5 SPACES}!":POSI 
TION 19,5:? #6;"!":REM !=BONE 
POSITION 1,8:? #6;"! H :POSITION 13,4:? 
# 6 ; " ! " 

POSITION 11,13:? #6; " f ’^POSITION 15,1 
4 :? # 6 ; ” ! " 

POSITION 5,11:? #6; ,, ! n : POSITION 7,16: 
? #6; M ! ” 

POSITION 17,12:? #6; M ! " 
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NM 10060 


HP 10070 

HL 10075 

NX 10090 
FE 19999 

CH 20000 
HL 20010 
BG 20020 
EL 20040 
PO 20050 
GN 20060 


BL 20070 

KG 20080 

BL 20090 
CK 20100 


PH 201 10 

NF 20120 
EF 20899 
FG 20900 
NA 20910 

FG 20920 
LH 20930 
GJ 20999 

LE 21000 
JH 21005 
AD 2 1 0 1 0 
El 21020 
FA 21030 

IB 21040 
HH 21050 
NJ 2 1060 

PD 3 1999 


POSITION 9,7:? #6;”S 
? #6; "309":POSIT ION 
M DOGHOUSE 


G 


9,9 


POSITION 9,8: 
? #6; "3 g n : RE 


POSITION 0,19:? #6; "0CE>0CE>EKE*EKE*0 
CE>HCE>SCtS>SCIS>H<:E>0CK> " : REM FENCE 
POSITION 0,0:? #6; " 0CE3 0CE} 0CE> 0<E> 0 
CE>0CE>0CE>0^E>0CE>0CE> M 
RETURN 

REM tttPM INIT***USE STRINGS TO DEFIN 
E AND MOVE PLAYERS VERTICALLY 
IF G A M E > 0 THEN 20110 
DIM X* ( 1 ) 

A = ADR( X* ) 

B=I NT ( <A-512) /1024-H ) * 1024 
DIM F$(B-A+511) 

DIM P0$(128),P1$(128),T$(8),S$(8),LTR 
(10) ,BL* ( 1 ) ,REPEAT$(10) ,LOW$ < 10) : REPE 
AT$="(10 SPACES)”:BL*= ” " 

POKE 559,46: POKE 53277,3-.P0KE 54279,1 
NT(B/256) 

POKE 623,4:REM SETS PLAYFI ELD PRIORIT 
Y OVER PLAYER 

POKE 704,50:REM PLAYER0(DOG) COLOR 
S*=" C,3 DNCTAB3 ! DGPC , > " : T$ = " C , } " : T* ( 2) = 
CHR$(34) :T$(3)="rCDELETE3 >":T$ (6)=CHR 
$(34) :T$(7 )= ,, w( !1 } ,, :REM STRINGS FOR DO 
GS 

P0$=CHR$(0):P0$(128)=CHR$(0):P0$(2)=P 

0$:REM CLEARS PLAYER0 

RETURN 

REM tttRESTART INIT*** 

REPEAT$= n (10 SPACES)”:M=1 

Y=50:X=129:REM STARTING POSITION OF D 

OG 

P0* ( Y , Y + LEN (S* ) ) =S* 

POKE 53248,X 

REM ***RANDOMLY SELECTS LETTERS FOR B 
ONES 

R=I NT(RND(0) * 16) 

FOR K=1 TO 10 

J=INT(RND(0)*10)+1 

IF REPEATS (J , J )='** " THEN 21010 

REPEAT $(J,J)="* ":LTR(K)=R + 97 + J:LOM$( J 

,J)=CHR$(R+97+J) 

NEXT K 

POSITION 4,21:? #6;CHR*(R + 97) 

RETURN 

REM 
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DA 32000 ? CHR$ ( 125) : POKE 106, PEEK ( 106) -9: GRAP 
HICS 18:S T A R T =(PEEK<106)+5)*256:POKE 
756,START/256:POKE 752,1 
JG 320 10 POSITION 3,2:7 #6: » rsTWasrsTsMZI'a rZEUrhi " : PQ 
SITION 9,5:7 # 6; " HE" : POSITION 5,6:7 # 
6;"G.M. VARANO" 

HI 32015 POSITION 3,9:7 #6; ,, please stand by" 

NP 32020 FOR Z = 0 TO 1023:POKE START + Z , PEEK (573 

4 4 + Z ) :NEXT Z:REST ORE 32100 

JF 32030 READ X: IF X = -l THEN RESTORE : RETURN 
PB 32040 FOR Y = 0 TO 7 : READ Z : POKE X+Y + START, Z: 
NEXT Y:GOTO 32030 

KH 32100 DATA 40,128,192,224,240,24B,252,254,2 

5 5 

DD 32 10 1 DATA 8,0, 102,2 55,255,25 5, 102,0,0 
OB 32102 DATA 56, 1,3,7,15,31,63, 127,255 
PA 32103 DATA 256,255,255,255,255,255,255,255, 
255 

HC 32104 DATA -1 
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Pyramid Math 

Stephen Levy 


Colorful graphics and exciting sound make "Pyramid 
Math" an excellent math tutor for young children. It's a 
fun-to-play game too. 

"Pyramid Math" is a simple and straightforward math contest 
for two players. As each player answers a problem correctly, 
he or she builds another part of the pyramid. The winner is 
the player who first completes a pyramid by answering ten 
problems correctly. 

Players choose addition, subtraction, multiplication, or di¬ 
vision problems, and the numbers used in the problems are 
generated randomly. The upper limits can be changed by 
adjusting the italicized number, as shown below. 

Note that the actual upper limit is one less than the num¬ 
ber given. For example, if the italicized number is 50, the up¬ 
per limit is 49. Be careful with subtraction; do not make Q2's 
limit greater than Ql's. Note that division is presently set for 
one-digit answers and one-digit divisors. Q1 is the divisor and 
Q2 is the dividend; in other words, problems take the form 

Q2/Q1. 

Operation Line 

Add 610 Q1 = INT(RND(0)*50):Q2 = INT(RND(0 )*50) 

Subtract 810 Q1 = 1NT(RND(0)*50):Q2 = INT(RND(0 )* 40 ) 

Multiply 1010 Q1 = INT(RND(0)*22):Q2 = INT(RND(0)*22) 

Divide 1210 Q1 = INT(RND(0)*20):Q2 = INT(RND(0)*9)*Q1 

If you prefer to use different colors, change line 433. 
Remember, SETCOLOR 0,8,14 sets the print color to white. 

Notice that the problems appear in the text window in 
large print, while the pyramid is done in graphics mode 3. 

This is accomplished by lines 410, 420, and 430. 

Pyramid Math 

For error-free program entry, read "The Automatic Proofreader" in Chapter I before typing 
in this program. 

6(150 DIM YES$ (3) . BUZZ* (1 ) , CLEAR* U ) , PLflYERl* ( 
20),PLAYER2*(20):BUZZ*= CHR*(253):CLEAR*= 
CHR*(125):OPEN #1,4,0,"K:" 
m 60 DIM P*(10):PLAYER1*=" ”:PLAYER1*(20)=" " 

:PLAYER1*(2)=PLAYER1*:PLAYER2*=PLAYER1* 

BH 100 REM INTRODUCTION 


126 




Chapter 3 


pp 110 

FN 120 
HE 130 
PK 150 


DK 155 
DH 160 

KM 170 
LK 180 

CM 190 


HA 195 


HK 200 


CO 210 


AB 215 

NG 220 
MB 225 
NP 230 


JK 235 
CP 240 
OE 245 
CP 250 
HN 300 

GF 305 
CF 310 

AJ 320 

IJ 325 

EJ 330 


R TWO PloflYER GftM 


bOO 


Tsa5ctr> 


GRAPHICS 18:SETCOLOR 4,4,2:SETCOLOR 0,1 
3,14:TRAP 10000:SETCOLOR 1,12,3 
POSITION 4,3:PRI NT #6; "PYRAMID MATH":PO 
SITION 2,5:PR I NT #6;” 

POSITION 3, 10:PRINT #6: " RTH 
E" :FOR W=1 TO 2500:NEXT W 

GRAPHICS 1:SETCOLOR 4,13,13:SETCOLOR 2, 
13,13:POSITION 5,5:PRINT #6:"D0 YOU NEE 
D":TRAP 10000 

POSITION 4,7:PR I NT #6; "INSTRUCTIONS?" 
INPUT YES*: IF YES*(1,1><>"N” AND YES*< 1 
, 1)< >"Y" THEN GOTO 10000 
IF YES*<1,1)="N" THEN 300 

GRAPHICS 18:SETCOLOR 4,8,4:SETCOLOR 2,1 
3,7 

POSITION 4,0:PR I NT #6; "INSTRUCTIONS":PO 
SITION 0,3: PRINT #6; " nTin 


II 


POSITION 2,4 : PR I NT #6;"025 
":POSITION 2,5:PRINT #6;" 
ch ” 

POSITION 0,6:PRINT 
iven":POSIT ION 0,7 
to solve-" 

8:PRINT 


, \■ |,' | i 


GOES FIRST. 


e a 


#6;"player will be g 
PRINT #6;"a problem 


POSITION 2 
"s POSITION 


a correct answe 


tv 


: POSITI 


# 6 ; " 

0,9:PRINT #6;"builds the pla 

yer’ 

POSITION 6, 10:PRINT #6; "PYRAMID 
ON 3,11:PRINT #6;"PRESS RETURN" 

IF PEEK(764)=255 THEN 220 

POKE 764,255:GRAPHICS 18:SETCOLOR 4,6,5 
POSITION 0,2:PR I NT #6; "THE FIRST PLAYER 
TO":POSITION 1,4:PRINT #6;"FINISH BUIL 
DING THE" 

POSITION 3,6:PR I NT #6 
POSITION 3,9:PR I NT #6 
IF PEEK(764)=255 
POKE 764,255 
GRAPHICS 2:SETCOLOR 
1 2 


THEN 
4 


"PYRAMID WINS" 

"fi 

245 


ness retur 


•I 


9,4:SETCOLOR 0,9, 


TRAP 10010:LN=300 

POSITION 4,0:PRINT #6;"PLAYER one ? s":PO 
SITION 4, 1:PRINT #6; "NAME PLEASE-. . " 
INPUT PS v : PLAYER 1$ < 1 , LEN (PS) )=P$: POSIT 10 
N 5,2:PRINT #6;PLAYER1$:PRINT CLEARS 

HH=ASC(PLAYER1$(1,1)):IF HH<65 OR HH>90 
THEN 10010 

POSITION 4,5:PR I NT #6; "PLAYER two’s":PO 
SITION 4,6:PRINT #6;"NAME PLEASE-.." 
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BC 340 

1(1 345 

BJ 360 
GN 370 
HG 380 


JE 390 

CL 395 

HO 400 
IN 403 
HE 405 
GE 410 

AC 420 
CL 4 30 


JA 433 
KG 435 


KN 437 

DE 440 
FJ 600 
LA 61 0 
HE 61 5 
II 620 
IL 630 
EH 640 

NH 680 
PC 690 
NA 700 


GD 71 0 
NC 720 
00 730 
NF 740 


GG 750 
FL 800 
LB 81 0 
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INPUT P*:PLAYER2* <1,LEN <P*> )=P$:POSIT 10 
N 5,7:PRINT # 6 ;PLAYER2$:PRINT CLEAR* 
HH=ASC(PLAYER2*(1,1)):IF HH<65 OR HH>90 
THEN 10010 

GRAPHICS 1 7:SE T COLOR 4,5, 10 
TRAP 10010:LN=360 

POSITION 4,0:PRINT # 6 ;"WHAT TYPE":POSIT 
ION 4,1:PRINT # 6 ;"OF PROBLEMS":POSITION 
4,2:PRINT # 6 ;"DO YOU WANT?" 


POSITION 2,4:PRINT 
ON 2, 6 :PRINT # 6 ; 
POSITION 2, 8 :PRINT 
OS ITI ON 2, 10:PRINT 
GET #1,HH:IF HH<49 
HH=HH—48 


# 6 ; " D 


ADDIN 


2 5UBTRACTIN 


3 MULTIPLYIN 


4 DIUIDIN 


# 6 ; 

# 6 ; 

OR 


II 


ll 


H H > 5 


2":POSIT I 
? " ; P 

2 ” 

THEN 10020 


TRAP 40000 

POKE 82,0:GRAPHICS 3:DL = PEEK <560)+PEEK( 
561)*256 

IF PEEK <DL) < >66 THEN DL = DL-t l : GOTO 420 
POKE DL,70:POKE DL+3,7:POKE DL+4,6:P0KE 
DL+5 ,65:POKE DL+ 6 ,PEEK(DL+7):POKE DL+7 
, PEEK < DL + 8 ) 

SETCOLOR 4, 8 , 6 :SETCOLOR 2,5 , 12:SETCOLOR 
0,8, 14 

COLOR 3:FOR LINE=11 TO 13:PL0T 0,LINE:D 
RAWTO 39,LINE:NEXT LINE 

COLOR 2:FOR LINE=14 TO 16:PL0T 0,LINE:D 
RAWTO 39,LINE:NEXT LINE 
ON HH GOTO 600,800,1000,1200 
R=1:ROW1=10:ROW2=10 


Q1 = I NT< RND( 0 ) *50) 
TRAP 10030:LN=615 
IF R=1 THEN GOSUB 
IF R=2 THEN GOSUB 


Q2=I NT(RND(0) *50) 


II 


II 


Q 1 


II 


10100 
10110 
02 : 


H 


_it 


ON R GOTO 


PRINT 
680,720 

INPUT ANS:PRINT 

IF ANS=Q1+Q2 THEN GOSUB 6000 
IF ANSOD1+Q2 THEN PRINT BUZZ*:GOSUB 
100 :PRINT "<5 SPACES}" 5 Q1;" + ";Q 2 ;" 

";Q1+Q2:FOR W=1 TO 700:NEXT W 


10 


R=2:GOTO 610 
INPUT ANS:PR I NT 

IF ANS=Q1+02 THEN GOSUB 6100 
IF ANSOQ1+Q2 THEN PRINT BUZZ$:GOSUB 10 
1 10: PRINT "C5 SPACES) Q1 ; " +- ,, ;Q2;" = 

" ; 01 +02: FOR W=1 TO 700-.NEXT W 

R=1:GOTO 610 

R=1:ROW1=10:ROW2=10 

Q1=INT<RND(0)*50):Q2=INT(RND(0)*40) 
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DD 8 1 2 
HI 815 
IK 820 
IN 830 
FE 840 

BC 880 
PG 890 
NI 900 


GH 910 
AN 920 
PC 930 
NN 940 


GK 950 
IE 1000 
NH 1010 
HK 10 15 
LD 1020 
LG 1030 
PK 1040 

DL 1080 
BH 1090 
CG 1100 


LJ 1110 
DG 1120 
BI 1130 
CL 1140 


LH 1150 
IG 1200 
FJ 1210 
HH 12 11 
HO 1215 
LF 1220 
LI 1230 
LN 1240 

DN 1280 
CD 1290 
HD 1300 


II 


ON R GOTO 


IF Q1< Q2 THEN 810 
TRAP 10030:LN=815 
IF R=1 THEN GOSUB 10100 
IF R=2 THEN GOSUB 10110 
PRINT " “;Q1; " - " ;Q2;” 

880,920 
INPUT ANS 

IF ANS = Q1 —Q2 THEN GOSUB 6000 
IF ANSOQ1-02 THEN PRINT BUZZ$:GOSUB 10 
100:PRI NT "14 SPACES)";Q1; " - ” ; O 

";Ql—Q2:FOR W=1 TO 700:NEXT W 


II _ 


R = 2:GOTO 810 
INPUT ANS 

IF ANS=Q 1 -Q2 THEN GOSUB 6100 
IF ANSOQ1-Q2 THEN PRINT BUZZ$:GOSUB 10 
110:PRINT ”C4 SPACES}Ql; n - ";Q2;” = 

" ;Ql—Q2:FOR W=1 TO 700:NEXT W 
R=1:GOT O 810 
R=1:ROW1=10:ROW2=10 

Q1 = INT(RND(0) *12) :Q2=INT< RND (0) *12) 
TRAP 10030:LN=1015 
IF R=1 THEN GOSUB 10100 
IF R = 2 THEN GOSUB 10110 

PRINT " ";Q1;" X ";Q2;" =";:ON R GOTO 

1080,1120 
INPUT ANS 

IF ANS=Q1*Q2 THEN GOSUB 6000 
IF ANSOQl*Q2 THEN PRINT BUZZ$:GOSUB 1 
0 1 00 : PR I NT " C 4 SPACES} Ql ; " X ,, ;Q2; ,, 

= ";Ql*Q2:FOR W=1 TO 700:NEXT W 

R = 2: GOTO 1010 
INPUT ANS 

IF ANS = Q1 * Q 2 THEN GOSUB 6100 

IF ANS< >01 *Q2 THEN PRINT BU7.Z$:GOSUB 1 

0110: PRINT *' C 4 SPACES}Ql ; ” X ,, ;Q2;" 

= " ; Ql*Q2:FOR W=1 TO 700:NEXT W 

R=1:GOT O 1010 
R = 1:ROW1=10:R0W2=10 

Ql = 1 NT(RND (0) *10) :Q2=I NT (RND(0) *9) *Q1 
IF Q1= 0 OR 02 = 0 THEN 1210 
TRAP 10030:LN=1215 
IF R=1 THEN GOSUB 10100 
IF R=2 THEN GOSUB 10110 

PRINT 02;*’ DIVIDED BY " ; Q 1 ; " = " ; : ON R G 
OTO 1280,1320 
INPUT ANS 

IF ANS=Q2/Q1 THEN GOSUB 6000 
IF ANSOQ2/Q1 THEN PRINT BUZZ$:GOSUB 1 
0 1 00: PR I NT " M ;Ql; n INTO " ;Q2; ,, IS " ; 0 
2/01:FOR W=1 TO 700:NEXT W 
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LN 1310 R = 2: GOTO 1210 
DI 1320 INPUT ANS 

BP 1330 IF ANS=Q2 / Q1 THEN GOSUB 6100 
HI 1340 IF ANSOQ2/Q1 THEN PRINT BUZZ$:GOSUB 1 
01 10: PRINT " " ;Q1;" INTO ";Q2;" IS " ; Q 

2/QlsFOR W=1 TO 700:NEXT W 

HA 1350 R=1 : GOTO 1210 

FD 6000 R0W1=R0W1 — 1 : SOUND 0,70,10,10 

IC 6010 IF ROW 1 = 7 OR R0W1=4 OR R0W1 = 1 THEN COL 

OR 1:GOT O 6040 

IH 6020 IF ROW 1=8 OR R0W1=5 OR R0W1=2 THEN COL 

OR 2:GOTO 6040 
HL 6030 COLOR 3 

OH 6040 PLOT 1 0-ROW 1 , ROW 1 : DRAWTO ROW 1 + 1 0 , ROW1 : 

FOR W=1 TO 20:NEXT W:SOUND 0,0,0,0 
DH 6050 IF RQW1O0 THEN RETURN 

IE 6060 POP - P$ = PLAYER1 $: GOSUB 7000:GOTO 7100 


FI 6100 

ROW 

2=R0W2— 

1:SOUND 0, 

200 

, 10,8 




IH 6 1 10 

IF 

ROW2 = 7 

OR R0W2=4 

OR 

R0W2 = 

1 

THEN 

COL 


OR 

1:GOTO 

6 140 






IN 61 20 

IF 

ROW2=8 

OR R0W2=5 

OR 

RO W2 = 

o 

x_ 

THEN 

COL 


OR 

3:GOTO 

6 140 







HL 6130 COLOR 2 

AF 6 14 0 PLOT 29-R0W2, R0W2: DRAWTO R0W2 + 29, R0W2: 

FOR W=1 TO 20:NEXT WiSOUND 0,0,0,0 
DO 6150 IF ROW2O0 THEN RETURN 

IG 6 160 POP :P$ = PLAYER2$:GOSUB 7000:GOTO 7100 

LG 7000 T I MES = 0 

NF 7005 FOR XX=1 TO 10 

017010 POKE 708, PEEK ( 709) : POKE 709 , PEEK ( 7 1 0 ) : 

SOUND 0, X X*20, 10, 8 :POKE 710,PEEK (712): 
POKE 712,PEEK(708) 

HA 7020 POKE 709, XX*20: FOR W=1 TO 25:NEXT W:TI 
MES=TIMES+1:NEXT XX 
HP 7055 IF T I MES< 1 5 THEN 7005 
JP 7056 SOUND 0,0,0,0 
KN 7060 RETURN 

FC 7 100 GRAPHICS 18:SETCOLOR 4,8,6:POKE 82,2 

CK7110 FOR XX=1 TO 10:PRINT # 6 ;" ";P$;" WINS! 

":NEXT XX 

0D 7 120 FOR W= 1 TO 500:NEXT W:TRAP 40000 

BN 7 130 GRAPHICS 0:POSITION 5,10:PRINT "Play A 
gain":INPUT YES$ 

EN 7 14 0 IF YES$ ( 1 , 1)="Y" THEN RUN 

HA 7 150 GRAPHICS 17:POSITION 5,5 : PR I NT # 6 ; "GAM 
E OVER" 

IB 7 1 60 FOR W = 1 TO 400:NEXT W 

KG 7 170 END 

NH 10000 PRINT BUZ Z$ : PRINT #6 ; CLEAR* : GOTO 150 
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PL 10010 
EP 10030 
DL 10100 
DN 10 110 


PRINT 
PR I NT 
PRINT 
PRINT 


BUZ Z$: GOTO 
BUZZ$:PRINT 
CLEARS ; " " ; 

CLEARS; ” " ; 


LN 

CLEARS:GOTO LN 
PLAYER IS; : RETURN 
PLAYER2S; : RET URN 
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Dot Drawing 

Robert D. Goeman 


Here's a drawing program that lets students create their 
own connect-the-dots pictures. It helps develop visual 
skills too. 

"Dot Drawing" uses less than 2K of memory for the body of 
the program. When the program is running, the entire mem¬ 
ory requirements total less than 13K. The program is entirely 
in BASIC and can be modified by those with limited program¬ 
ming skill and an Atari reference manual. 

The program places a flashing cursor in the upper left- 
hand corner of an otherwise darkened screen. Pressing the fire 
button marks the cursor's location as the starting point for a 
drawing; in the text window, the X and Y coordinates of that 
location will be displayed. 

As the cursor is moved, each subsequent pressing of the 
fire button enters a new X and Y point and displays the new 
coordinates in the text window. To connect the points and 
draw a picture, press D. 

After the drawing is complete, the cursor remains at its 
last position, allowing you to expand your creation. You can 
clear the screen by pressing BREAK and running the program. 
If you attempt to save more than 254 X,Y points without 
drawing the picture, the program will automatically jump to 
the drawing routine and then return to the beginning of the 
program. 

About the Program 

Lines 1-43 set the graphics mode and control cursor move¬ 
ment by reading the joystick. Line 11 initializes the memory 
location for storing the X and Y coordinates; that line also 
initializes variable ST, which counts the number of points en¬ 
tered in a given drawing. 

Lines 45-50 read the keyboard and the joystick. POKE 
764,255 returns the keyboard to a "no keys pressed" condition 
after D has been read. 

Lines 100-110 are used to enter X coordinates which are 
greater than 255, since numbers larger than 255 cannot be 
held in a single memory location. Lines 115-116 enter the 
present coordinate values and then move the present memory 
locations ahead in preparation for the next set of coordinate 
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values. Lines 200-215 then reinitialize memory locations and 
X, Y values for the drawing routine and plot the first point of 
that routine. 

Lines 220-240 do the actual drawing. T—1 is the number 
of points held in memory locations, minus the first point 
which has already been plotted. 

Dot Drawing 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

PI 1 X=1 : Y=1 

JP 10 GRAPHICS 8 : SETCOLOR 2,16,l:COLOR 5 

IN 11 L=1536:Ll=1537:L2=l538:T=0:ST=0 

NL 14 IF STICK (0) =15 THEN X = X:Y = Y 

AN 15 IF ST ICK(0)=1 1 THEN X = X-1 

86 19 IF STICK(0)=14 THEN Y = Y-1 

GF 20 IF STICK (0) =9 THEN X=X-1:Y=Y+1 

JE 25 IF STICK (0)=10 THEN X = X-1:Y = Y-1 

6 F 26 IF ST I CK ( 0 ) =5 THEN X=X+1:Y=Y+1 

GJ 27 IF ST I CK ( 0 ) =6 THEN X=X+1:Y=Y-1 

AH 30 IF ST I CK < 0 > = 1 3 THEN Y = Y+1 

OC 35 IF STICK <0) =7 THEN X = X + 1 

BJ 40 IF X<1 THEN X=319 

BH 4 1 IF X >319 THEN X = 1 

CC 42 IF Y< 1 THEN Y=189 

CF 43 IF Y > 189 THEN Y=1 

IF 45 IF PEEK (764) = 58 THEN POKE 764,255:G0T0 2 
00 

AN 50 IF STR I 6 < 0 ) =0 THEN T = T+l:SOUND 1,30,10,8 
:FOR P=1 TO 25:NEXT P:SOUND 1,0,0,0:GOTO 
100 

DN 55 PLOT X , Y: FOR P=1 TO 15:NEXT P:COLOR 0:PL 
OT X,Y:COLOR 5:GOTO 15 
NJ 100 IF X < =255 THEN XX = 0 
HE 105 ST = ST + 1 ; I F ST> = 254 THEN 200 
PL 110 IF X >255 THEN X X = X-255 : X = 255 

HE 115 POKE L , X : POKE H , X X : POKE L2,Y 

GL116 L = L + 3: L l=Ll + 3: L2 = L2 + 3 

L0 117 X = X + X X: ? X;" " ; Y : 7 

DC 120 GOTO 15 

HE 200 L=1536: Ll = 1537 : L2 = 1538 

HI 210 X = PEEK <L) : XX=PEEK <L1 ) : Y = PEEK <L2) 

LG 2 1 5 X = X + X X : PLOT X,Y 
10 220 FOR P=1 TO T— 1 

FF 222 SOUND 1,220 , 1 0 ,8 : FOR PP=1 TO 10:NEXT PP 
:SOUND 1,0,0,0 
GH 225 L=L+3:Ll=Ll+3:L2=L2+3 
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HK 230 X = PEEK CL) : XX = PEEK (LI ) s Y = PEEK <L2) 
EK 235 X=X+XX:DRAWTO X,Y 
LP 237 ? X ; " " ; Ys ? 

CF 240 NEXT P 

EE 242 IF ST > = 254 THEN 1 

DS 245 GOTO 1 1 
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Art Class 

Mark Poesch 
Tim Kilby 
Steve Steinberg 


"Art Class" is an outstanding example of the graphics 
capabilities of your Atari computer. It can be an excellent 
teaching tool a fine introduction to computers, or simply 
great entertainment for a rainy day. 

The Atari GTIA chip is getting to be like the weather—every¬ 
body talks about it, but nobody does very much with it. 

Until now. 

"Art Class" is a drawing program utilizing the GTIA's 
graphics mode 10. It is designed for use by small children, who 
can use the cursor much like they would use felt coloring pens. 

Coloring with the Cursor 

We have deliberately kept Art Class simple so children will be 
comfortable with the program. Even so, it boasts several fea¬ 
tures that will be of interest to programmers. 

The screen display consists of a blank GRAPHICS 10 
screen, a "color palette" showing the numbers 0-8 in nine dif¬ 
ferent colors, and two lines showing the prompts for the com¬ 
mands that are available. 

A flashing cursor can be seen on the graphics 10 screen. 
The joystick is used to move the cursor; holding the red trig¬ 
ger button down allows you to draw with the cursor as it 
moves. Color 0 is the background color and is used for 
erasing. 

You can switch to any of the available palette colors by 
typing the number corresponding to the desired color (or by 
typing 0 for the background). Hitting the CLEAR key clears 
the screen, and the S and L keys enable you to save or load 
your drawings to and from disk. 

In saving and loading programs, the filename must be en¬ 
tered in the form D1:FILENAME. While you can draw with 
only eight colors at a time, hitting the N key gives you access 
to all 128 Atari colors. You can choose any nine for your pal¬ 
ette. Changing colors is accomplished by moving the joystick 
left or right until you have the right color in the right place; 
then hit the RETURN key to enter your choice. 
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Short and Powerful 

Even though Art Class is a short program, it displays some of 
Atari's best features. For example, a text window with graphics 
mode 10. The text window will help children learn to read 
and follow instructions. But where does that text window 
come from? 

The program begins by taking a regular GRAPHICS 8 
screen (with its four-line text window) and modifying it as fol¬ 
lows. The display list, those instructions that set up the screen 
display, is modified in lines 270 and 280 for only two 
GRAPHICS 0 lines in the text window. Also, two blank lines 
are inserted in the graphics window near the bottom, the sec¬ 
ond of which includes an instruction for a display list interrupt 
(DLI). It's that DLI instruction that is the key to having text 
and GTIA graphics on the same display. 

When GTIA modes are initiated, an internal register called 
PRIOR (53275) is set for the special modes. That register has 
to be set differently for modes 0-8. Every screen cycle (that is, 
every 1/60 second) PRIOR's shadow register at location 623 
updates the register for GTIA 10 by setting it to a value of 
128. The DLI switches PRIOR's setting to 0 as the electron 
beam scans across the screen just above the text window. 

Thus, PRIOR is constantly being set and reset according to the 
position of the electron beam on the screen. 

This setting and resetting must be done in machine code 
for speed and accurate timing, but that's no problem. The ma¬ 
chine language routine is POKEd into position in page 6 and 
activated through BASIC. The DLI pointer at locations 512 
and 513 has to be set; finally, the DLI is turned on by 
POKEing 54286 with 192. 

The DATA for the DLI service routine can be found in 
lines 210 and 220. In addition to resetting PRIOR, the DLI 
also sets the various colors at the bottom of the screen. In 
assembly code, this is the DLI service routine: 


PHA 


;Save values from 

TXA 


;S, Y, and A registers 

PHA 


r 

TYA 


r 

PHA 


/ 

LDA 

#0 

;This value will be stored in PRIOR 

LDX 

136 
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;Color blue for the text window 
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LDY 

#12 

STA 

$D40A 

STA 

$D01B 

STX 

$D018 

STY 

$D017 

LDA 

$2C0 

STA 

$D01A 

PLA 


TAY 


PLA 


TAX 


PLA 


RTI 



;White text characters 

;Wait for WSYNC horizontal blank to begin 

;Reset PRIOR register to 0 

;Background text window color register 

;Text luminance color register 

;Load the current border color 

;Store in border color register 

;Restore X, Y, 

; and A values 

/ 

/ 

/ 

;Return from interrupt 


Now that the screen can display both GT1A graphics and 
normal text in a text window, a creative and useful display can 
be made. The colored numbers at the bottom of the screen are 
normal and inverse numerals plotted in GTIA 10 colors. They 
are drawn by lines 300-400. 

One last feature worth mentioning is the screen clear 
technique. A string S$ originally dimensioned to 1 is 
redimensioned to 6560, the size (in bytes) of the graphics win¬ 
dow. Lines 400-420 do the redimensioning and relocate the 
string to screen memory location. Then, when the screen 
needs clearing, zeros are written to the string almost instanta¬ 
neously (line 640). 


Art Class 

For error-free program entry, read "The Automatic Proofreader " in Chapter 1 before typing 
in this program. 

HP 10 CLR : D I M S$(l> , B$(l) ,C$ ( 1 ) , F$ ( 15) , T$ ( 9) , 
IO$(6),X(10),Y(10) 

CN 20 GOTO 200 

ID 30 S = STICK (0)-5:N = STRIG(0) : X = X + X (S) : Y = Y + Y(S 
) : I F X<0 THEN X = 79 
ON 40 IF X >79 THEN X = 0 
BF 50 IF Y< 0 THEN Y=160 
BI 60 IF Y >16 0 THEN Y = 0 

JK 70 LOCATE X , Y , Z : COLOR C+12:PLOT X, Y:DRAWTO 
X,Y+3:COLOR C+8:PL0T X,Y:DRAWTO X,Y+3:C0 
LOR C+4:PL0T X,Y:DRAWTO X,Y + 3 
HG 80 COLOR C: PLOT X,Y:DRAWTO X,Y + 3 
PI 90 IF NOT N THEN 110 

AG 100 COLOR Z : PLOT X,Y:DRAWTO X,Y + 3 
KD 110 IF PEEK ( 764 ) =255 THEN 30 
DP 1 20 GET #2 , K 
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FL 130 

OA 140 
NO 150 
OF 160 
JP 170 
DF 180 
MG 190 


EC 200 
(ID 2 1 0 


GE 220 

FE 2 30 

JI 240 
EO 250 


MI 260 
PJ 270 


FE 280 


OJ 290 

MK 300 
CM 3 1 0 


FG 320 

MB 330 
LJ 340 
LP 350 
GD 360 
FN 370 
FL 380 
PO 390 
FP 400 


IF K > 4 7 AND K<58 THEN C = K-48: Z=C: GOTO 
0 


IF K = 8 


THEN 460 


IF K=76 THEN 500 
IF K = 7 8 THEN 540 


IF K=60 OR K=l^ 




GOTO 30 
? C$ ; " 


S > Save 


THEN 640 


3 SPACES}N> New 


Col ore C8 SPACES>L> Load Picture 


C 3 SPACES>CLEAR> Clear Screen"GOTO 30 
C$=CHR$(125):B$=CHR$(253):FOR 1=0 TO 34 
:READ D:POKE 1536+1,D:NEXT I 
DATA 72,138,72,152,72,169,0,162,148,160 
, 12, 141,10,212, 141,27,208, 142,24,208, 14 
0,23,208,173,192 

DATA 2,141,26,208,104,168,104,170,104,6 

4 

FOR 1 = 1 TO 6 :READ N: 10$(I , I )=CHR$ (N) :NE 
XT I 

DATA 104,162,16,76,86,228 

GRAPHICS 8 :POKE 704,12:POKE 705,70:POKE 

706,152:POKE 707,218:POKE 708,46:POKE 
709,118:POKE 710,4:POKE 711,78 

POKE 7 1 2,38: D = PEEK (560) +-256 * PEEK ( 56 1 ) 
FOR 1=167 TO 170:POKE D+I+14,PEEK(D+I): 
NEXT I : FOR 1 = 173 TO 175:P0KE D+-I+-12,PEE 
K (D+-I ) : NEXT I 

FOR 1=165 TO 180:POKE D+I,15:NEXT I:POK 
E D+-171,0: POKE D+ 1 80 , 1 28 : POKE 512,0:POK 
E 513,6:POKE 54286,192 

POKE 623,128:POKE 87, 10:N = PEEK <16)-128: 
IF N >= 0 THEN POKE 16,N:POKE 53774,N 
X=0:Y=164:T*="012345678" 

FOR N =1 TO 9:S=ASC(T$(N,N))-32:L=57344+ 

5 * 8 :FOR 1=0 TO 7:K = 255:COLOR C: IF C = 0 T 
HEN COLOR 6 :K = 0 

D = ABS (PEEK (L+-I ) -K) : IF D>127 THEN D = D-12 
8 : PLOT X , Y +- I 

IF D >6 3 THEN D = D-64:PLOT X + 1,Y+I 
IF D > 31 THEN D = D-32:PL0T X+-2,Y+I 

IF D > 15 THEN D = D-16:PL0T X+-3,Y+-I 

IF D >7 THEN D = D-8:PL0T X+-4 ? Y+-I 
IF D >3 THEN D = D-4:PL0T X+-5,Y+-I 
IF D >1 THEN D = D —2:PLOT X+ 6 ,Y+I 
IF D >0 THEN PLOT X+-7,Y+-I 

NEXT I : X = X+-9:C = C+-1 : NEXT N: N = PEEK ( 140) +2 
56* PEEK ( 141 ) : D = PEEK ( 1 34 ) +-256 * PEEK ( 1 35 ) 
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GH 4 1 0 


CD 4 20 

BB 4 30 
AO 440 
NA 450 

DJ 460 


HA 470 


AH 4 80 

HK 4 82 
HC 490 

KP 500 


HO 510 
FL 520 


OE 530 
EJ 540 


JP 550 
GO 560 
DD 570 
AF 580 
HC 590 
PH 600 
HI 610 
PH 620 
GH 630 
KC 640 

GL 650 
GN 660 


I=PEEK(88)+256*PEEK(89)-N:X=INT (1/256) : 
Y=I-X*256:POKE D+2,Y:POKE D+3,X:POKE D + 
4,160:POKE D + 5,25 

POKE D + 6 ,160:POKE D+7,25:F0R 1=0 TO 10: 

READ X,Y:X(I)=X:Y(I)=Y:NEXT I 

DATA lj,4, 1,-4, 1,0,0,0,-1,4,-1 

DATA -4,-1,0,0,0,0,4,0,-4,0,0 

OPEN #2,4,0,"K:":X=39:Y=80:C=1:POKE 752 

,1:POKE 82,1:GOTO 190 

POKE 752,0:7 C$;"Enter a -filename for t 
hi 5 picture.": INPUT F$:POKE 752,1: IF F $ 
="" THEN GOTO 190 

TRAP 650:CLOSE #1:QPEN #1,8,0,F$:POKE 8 
52,PEEK(88):POKE 853,PEEK(89):POKE 856, 
160:POKE 857,25:POKE 850,11 

L=USR(ADR(10$)):FOR 1=704 TO 712:PUT #1 

,PEEK(I):NEXT I 

CLOSE #1:OPEN #1,4,0,F* 

POKE 54286,192:7 C$;"Picture saved as: 

";F$:FOR D=1 TO 400:NEXT D:GOTO 190 
POKE 752,0:7 C$;"Enter the picture's fi 
1ename.INPUT F$:POKE 752,1:IF F$= n " T 
HEN GOTO 190 

TRAP 650:CLOSE #1:0PEN #1,4,0,F« 

POKE 852,PEEK(88):POKE 853,PEEK(89):POK 
E 856,160:POKE 857,25:POKE 850,7:J=USR( 
ADR(10$)) 

FOR 1=704 TO 712:GET #1,C:P0KE I,C:NEXT 
I:POKE 54286,192:GOTO 190 
7 C$;"Press a number key and then use t 

he(4 SPACES}joystick. Press RETURN whe 
n finished.";:C=1 
I= P E E K(704+C) 

I = I+X(STICK(0)-5):IF I<0 THEN 1=255 
IF I>255 THEN 1=0 

POKE 704+C,I:IF PEEK(764)<>255 THEN 600 
GOTO 560 

GET #2,K:IF K=155 THEN 190 
IF K< 48 OR K >56 THEN 560 
C=K-48 
GOTO 550 

S$(1)=CHR$(0):S$(6560)=CHR$(0):S*(2)=S* 
:GO TO 30 

POKE 54286,192:D=PEEK(195) 

IF D=165 OR D=130 OR D=146 THEN 7 C*;"Y 
ou used an improper or incomplete 
•C 5 SPACES) f i 1 ename „ Try again. n ;: GOTO 
7 10 
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B(1 670 IF D= 1 38 OR D=139 THEN 7 C*;"Check all 

connections and try again.";:GOTO 710 
PL 680 IF D= 14 4 OR D=162 OR D=167 THEN ? C*;”D 

iskette is -full or write protected 
C4 SPACES)or file is 1ocked. H ;:GOTO 710 
EB690 IF D=170 THEN ? C$; “That picture is not 

on file.";:GOTO 710 
IA 700 ? C $ ; "Error ” ; D; 

BC710 ? B$: F OR D=1 TO 500:NEXT DsGOTO 190 
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Hyperword 

Daniel M. Daly 


Fugitive hyperwords have escaped from their dimension 
and are materializing in ours. Your job is to type their 
names into the targeting computer and send them back 
where they belong. 

"Hyperword" is a program that brings new excitement to the 
old job of learning how to type. Each round pits you against 
five waves of invaders. After the title screen and the warning 
to GET READY, the first wave of hyperwords appears. 

But what are hyperwords? They are groups of random let¬ 
ters (you can specify the size of the group with the SELECT 
key) that appear two at a time on your screen. Then, when the 
FIRE! command appears, you must type in the letters, in order, 
before the hyperword escapes to other dimensions. 

A single game consists of five rounds, and you can specify 
how long each round lasts by using the OPTION key (to se¬ 
lect Skill Level) and the SELECT key (to pick a level from 1 to 
9). You'd better practice on the lower levels first, though. 

Those high-level hyperwords come at you pretty quickly. 

If you type in the hyperword correctly, it will turn dif¬ 
ferent colors and then fade out of view. The points earned for 
that word will be displayed in the text window and added to 
the tally. If there is not a match, a low tone is heard and the 
timers continue counting down. 

A wave can end in one of two ways. If both words are 
typed in correctly, the next wave starts. However, if you do 
not type them correctly before time runs out, the words still 
remaining will fade out, and then the next wave will begin. 

No points are earned for words that fade out by themselves. 

At the end of the fifth wave, a short fanfare sounds, and 
you'll learn whether or not you've beaten the previous high 
score. If so, the high score is changed. The next screen tells 
the player now many words were hit and/or missed, again in¬ 
dicating the score for the last game. 

After a short pause, the program returns to the main 
menu, waits for input via the console keys, and displays the 
high score for each size/level combination as each combina¬ 
tion is chosen. 
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Fading Words 

The fade-in and fade-out subroutines at the beginning of the 
program add a great deal of visual excitement to the game. 
They look impressive, but they are fairly straightforward. In 
fact, they're simple FOR-NEXT loops with a STEP of less than 
one. The resulting values set the brightness parameter of the 
SETCOLOR statement, and the result is a gradual fading in or 
out of the letters of the word. 

Hyperword 

For error-free program entry, read "The Automatic Proofreader " in Chapter 1 before typing 
in this program. 


FL 10 GOTO 1000 

HA 100 IF ASC<T0«<1)>>128 THEN WCR = 3 : WC = 4 : WL = 6 
:GOTO 1 1 0 

IE 105 WCR = 0: WC = 2 : WL = 8 
AL 110 SETCOLOR WCR,WC,0 
MN 115 POSITION XF'OS, YPOS 
FM 120 PRINT #6; T0$ 

OF 125 FOR L U P = 0 TO WL STEP 0.2 

MO 130 SETCOLOR WCR, WC,LUF* 

MM 135 SOUND 2,50, 12, LUP: SOUND 3,85., 12,LUP 
MF 140 NEXT LUP 

IN 145 SOUND 2,0,0,0: SOUND 3,0,0,0 : RETURN 

HH 160 IF ASC ( T0$ ( 1 ) ) >128 THEN WCR = 3 : WC = 4 : WL = 6 

:GO T O 170 

IK 165 WCR = 0 : WC = 2 : WL = 8 

IE 170 SETCOLOR WCR,WC,WL 

AO 175 FOR LDN = WL TO 0 STEP -0.2 

MA 180 SETCOLOR WCR,WC,LDN 

KE 185 SOUND 2,50 , 1 2 , LDN : SOUND 3,60,12,LDN 

LH 190 NEXT LDN 

KM 193 SETCOLOR WCR,0,0 

JC 195 SOUND 2,0,0,0: SOUND 3,0,0,0 : RETURN 
00 200 SETCOLOR 1,0,0 
BL 205 POSITION R G X , R G Y 
HB 21 0 PRINT #6; RG$ 


JI 

220 

FOR L U P = 0 

TO 1 2 

STEP 

0.15:SETCOLOR 1 

, 



LUP:NEXT 

LUP 




IN 

230 

FOR LDN=1 

2 TO 0 

STEP 

-0. 15: SETCOLOR 

1 , 0 



,LDN:NEXT 

LDN 




ES 

240 

POSITI ON 

RGX , RGY 

: FOR 

W=1 TO LEN( RG$) 

: PR 



INT #6;" 

" ; : NEX T 

W: SETCOLOR 1,12,10: 

RET 



URN 





MM 

2 50 

RG$="get " 

: RG X = 5 : 

RGY = 

3: GOSUB 200 : RG$ = 

"re 



ady " :RGX= 

8: RGY = 6 

: GOSUB 200 : RETURN 
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LJ 1000 

DO 1005 
HK 10 10 


PN 10 12 

NK 1013 
MA 1015 

ID 1090 
MI 1 1 00 
FK 1120 
PK 1220 
CD 1225 
PN 1230 
AM 1 235 
PK 1240 

MG 1245 
JO 1247 


OC 1250 

LB 1255 

LH 1 257 

BO 1260 
GF 1305 
IB 1307 
HP 1310 
JE 1330 
EA 1335 

NC 134 0 
PL 1350 
HC 1355 
ML 1 360 
BM 1370 
81 1 37 1 


CB 1372 
KD 13 7 3 
AP 137 5 
AG 1380 
AM 1385 
NK 1387 


DIM H $ < 9 ),L1$(26),L2$(26), L < 2 6 ),RG$(20 
),LD$(26),OPN$(11),BESTSC0RE(9,9) 

DIM T0$ (9) ,T1$(9) ,T2$(9) , K1 $ (9) , K2$ ( 9) 
H$ = " JiL 'fT . T iy 11 : L 1 $ = " ADCDEFGH I JKLMNOPQR 


STUVWXYZ" 


L2$ = 


abcdefghijklwnopqrstu 


KBD = 764s F F = 2 5 5 s FLAG = 206:CHECK=1536: DST 
RYD=156 1 


CONSOL=53279 

CDTMV1L=540:CDTMV1H=541:CDTMV2L=542:CD 

TMV2H=543:TXTROW=656:TXTCDL=657 

GRAPHICS 17 

POSITION 0,5 

PR I NT #6;H$;"... " 

POSITI ON 0,13 
PRINT #6;"HOW WELL CAN 
POSITI ON 0,15 

ram: 

20 


n 


TYPE??? 


initial 


i n 


fi 


PRINT #6; 

POSITION 0 

PRINT #6; “I 
FOR 1 = 1 TO 9: FOR J=1 TO 9: BESTSCORE ( I , 
J)=0:SOUND 3,I*J,10,8:POKE 711,I*J:NEX 
T J:NEXT I 

FOR 1=1 TO 26: READ A: LD$ ( I ) =CHR$ (A) :SO 
UND 0,A,10,8:POKE 711,A:NEXT I 
FOR 1=1536 TO 1560:READ AsPOKE 
ND 1 ,A, 10,8s POKE 711, A:NEXT I 
FOR 1=1561 TO 1637:READ AsPOKE 
ND 2,A,10,8:POKE 711,A:NEXT I 
FOR 1=0 TO 3s SOUND I ,0,0„ 0s NEXT I 
CPT =1 s SL=1 


I , A s SOU 


I, As SOU 


OPN=0sSLCN=CPTsOPN$="TARGET SIZE" 
GRAPHICS 18 

POSITION 5,0 s PRINT #6;H$ 

POSITION 0, 10s PRINT #6; "PRESS TO 

BEGIN” 

POSITION 4,5 
PRINT # 6;OPN$ 

POSITION 2,2s PRINT #6;"C17 SPACES}" 
POSITION 9,7 
PRINT # 6; S L C N 

IF BESTSCORE(CPT,SL)>0 THEN POSITION 2 
,2s PRINT #6; ”BEST SCORE=";BESTSCORE (CP 
T,SL) 

POKE CONSOL,0 

FOR P A U S E = 1 TO 35sNEXT PAUSE 
IF PEEK ( CONSOL) =3 THEN 1390 
IF PEEK (CONSOL)=5 THEN 1410 
IF PEEK ( CONSOL) =6 THEN 1500 
GOTO 1375 
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NH 1390 

6E 1400 

PB 14 10 
CO 1420 
KJ 1430 
DK 1440 
DA 1450 
GA 1460 
NJ 1500 
FG 1510 
EA 1630 
JO 1640 
DD 1650 

KN 1655 

DG 1660 


KQ 1663 


PP 1664 
OD 1665 

GO 1667 

JH 1670 
CF 1675 
OG 1680 
OC 1700 
KC 17 05 

IP 17 10 
CE 1720 
PG 1723 
FP 1725 

CK 1727 
AL 1730 
PJ 1735 
HP 1740 

IJ 1745 
OD 1747 

GO 1750 
JN 1760 
PH 1 770 
BP 1780 

144 


IF OPN=1 THEN OPN=0:OPN$="TARGET SIZE" 
: SLCN = CPTsGOTO 134 0 

OPN=1:OPN$="SKILL LEVEL"sSLCN=SL:GOTO 
1340 

IF OPN=l THEN SL=SL+1:GOTO 1430 




THE GAME S T ARTS HERE 


II 


CPT=CPT+1 
IF SL >9 THEN SL=1 
IF C P T >9 THEN CPT=1 
IF OP N=1 THEN SLCN = SL:GOTO 
SLCN=CPT:GOTO 1355 
SCR=0:REM 
Tl$="":T2$=" 

GRAPHICS 2:SET COLOR 2,0,0:POKE 752,1 
WAVE S =1:HITS = 0 

FOR MT=1 TO CRTsPRL=INT(RND(0)*26)+1:T 
1$(MT,MT)=L1$( PRL ,PRL):NEXT MT 
T1X=INT (RND <0) * (20— (CPT—1 ) ) ) :T1Y=INT(R 
ND(0)*10) 

FOR MT=1 TO CPT:PRL=INT (RND <0) *26) +1 : T 
2$(MT,MT)= L2$(PRL,PRL):NEXT MT 
T2X=I NT (RND(0) * (20-(CPT-l) ) ) :T2Y=INT(R 
ND (0) * 10) 


IF ASC(T1$)=ASC(T2$)-160 THEN 1650 
IF T2Y = T1Y AND T 2 X < T1X + (CPT+1 ) THEN 16 
6 3 

POKE TXTCOL,16:POKE TXTROW,3:PRINT "WA 
VE WAVES; 

IF WAVES=1 THEN GOSUB 250 
H I T = 0 

T0$=T1$:XP0S=T1X:YPOS=TlY:GOSUB 100 
T0$=T2$:XP0S=T2X:YP0S=T2Y:GOSUB 100 
SLTM=60* (2* ( 10-SL) ) +7 5:SLTMH=INT(SL T M/ 
256):SLTML=SLTM—256*SLTMH 
POKE 694,0:POKE 702,64 
KSN=1 

POKE TXTROW,1:POKE TXTCOL,2 

FOR PROMPT =1 TO CPT:PRINT ".";:NEXT PR 

OMPT 

POKE TXTROW,0:POKE TXTCOL, 12 

PRINT : POKE 755,2 

POKE TXTROW,1:POKE TXTCOL,2 

POKE CDTMV2L,SLTML:POKE CDTMV2H,SLTMH: 

POKE CDTMV1L,56: POKE CDTMV1H,4 

POKE KBD, FF 

IF PEEK(CDTMV2L)+256*PEEK(CDTMV2H)<75 
THEN 1995 

IF PEEK(KBD)=FF THEN 1747 
K=PEEK(KBD) 

POKE 755,1 

DUMMY = USR (CHECK,K, ADR(LD$) —1 ) 
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CK 178 1 
FK 1795 
GN 1797 
KF 1800 

IH 1810 
GL 1820 
DN 1830 
DP 1840 
61 1845 


EA 1847 
00 1850 


PF I860 


HI 1870 
FF 1880 
FN 1885 

PL 1890 
EA 1900 


GN 1980 

NA 1990 
FA 1995 


DM 2000 


NC 2005 
MN 2020 
HD 2030 
CD 2040 


JP 2045 
KF 2050 

JL 2060 
BO 2070 
CG 2090 


INDXY=PEEK(FLAG) 

IF INDXY=0 THEN 1840 

POKE 53279,0 

K1$(KSN)=L1$(INDXY,INDXY):K2$(KSN)=L2$ 
(INDXY,INDXY) 

PRINT K1 $ (KSN,KSN) ; 

IF KSN=CPT THEN 1845 

KSN=KSN+1 


POKE 755, 2 :GOT O 1745 

SVETIMEL = PEEK (CDTMV2L) : SVET IMEH = PEEK (C 
DTMV2H):SVESCOREL=PEEK(CDTMV1L)rSVESCO 
REH=PEEK(CDTMV1H) 

WRDSCR=SVESCOREL+256*SVESCOREH 
IF K1$=T1$ THEN GOSUB 20000:DUMMY=USR( 

20100:GOSUB 20200:SCR= 
1 880 

GOSUB 20000:DUMMY=USR( 
20100:GOSUB 20210:SCR= 
1 880 

, 10:F OR P AU SE =1 TO 25:NE 


DSTRYD,0):GOSUB 
SCR+WRDSCR:GOTO 
IF K2*=T2* THEN 
DSTRYD,3):GOSUB 
SCR+WRDSCR:GOTO 
SOUND 0,200,1^ 


II 


XT PAUSE:SOUND 0,0,0,0 

POKE TXTROW,2:POKE TXTCOL,20:PRINT 
C14 SPACES}”:IF HIT=3 THEN 1980 
KSN=1:POKE TXTROW,1:POKE TXTCOL,2:FOR 
PROMPT =1 TO CPT:PRINT ". "; :NEXT PROMPT 


POKE TXTROW , 1 :POKE TXTCOL, 2 
POKE CDTMV2H, SVETIMEH:POKE CDTMV1H,SVE 
SCOREH:POKE CDTMV2L,SVET I MEL:POKE CDTM 
V 1 L ,SVESCOREL:GOTO 1840 

? "(CLEAR}":WAVES=WAVES+1:IF WAVES <6 T 

HEN 1650 
GOTO 2020 

IF H I T = 0 OR HIT = 2 THEN T0$ = T1$: GOSUB 1 
60:POSITION T1X,T1Y:F0R 1=1 TO CPT:PRI 
NT # 6 ; " " 5 :NEXT I 

IF HIT = 0 OR HIT =1 THEN T0$ = T2$:GOSUB 1 
60:POSITION T2X,T2Y:F0R 1=1 TO CPT:PRI 
NT # 6 ; " ** ;:NEXT I 

GOTO 1980 

GRAPHICS 17:RESTORE 10100 
FOR 1=1 TO 17:READ A,B 

SOUND 0 , A ,10, 8 :FOR PAUSE=1 TO 12*B:NEX 
T PAUSE:SOUND 0,0,0,0:NEXT I : SOUND 0,0 
, 0 , 0 

FOR PAUSE=1 TO 25:NEXT PAUSE 
SOUND 0,121, 10, 8 -.SOUND 1,96, 10, 8 : SOUND 
2,81,10,8:SOUND 3,60,10,8 
FOR P AUSE =1 TO 15:NEXT PAUSE 
FOR 1=0 TO 3:SOUND I,0,0,0:NEXT I 
PRINT # 6 ;"NICE GOING! f!" 
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KK 2 100 PRINT # 6 s PRINT #6;"Y0U MADE IT THROUGH 

":PRINT #6:PRINT #6;"SKILL LEVEL ";SL 
FO2110 IF BESTSCORE (CRT , SL ) > = SCR THEN 2190 
FB 2120 PRINT #6sPRINT #6; "AND HAVE BEATEN THE 

":PRINT # 6 s PRINT #6; "BEST SCORE FOR TH 
IS"s PRINT #6sPRINT #6? "SKILL LEVEL!!" 

HD 2 130 PRINT #6sPRINT #6; "YOUR SCORES " ; SCR 

BI2140 PRINT # 6 s PRINT #6; "BEST SCORES ";BESTS 

CORE < CPT, SL) 

NC 214 5 FOR PAUSE=1 TO 450sNEXT PAUSE 
EF 2 150 BESTSCORE (CPT,SL)=SCRs POSITION 12, 14sP 
PINT #6;BESTSCORE(CPT,SL) 

KH 2 160 SOUND 0, 1 21 , 10, B: SOUND 1 ,9 6 , 1 0 ,8 s SOUND 
2,81,10,8s SOUND 3,60, 10,8 
JN 2 17 0 FOR PAUSE = 1 TO ISsNEXT PAUSE 
CA 218 0 FOR 1=0 TO 3sS0UND I,0,0,0;NEXT I 
NC 219 0 FOR PAUSE = 1 TO 450sNEXT PAUSE 
HN 2200 GRAPHICS 17 


LJ 22 10 
JB 2220 

JD 2230 

NB 2240 
MN 2250 
OP 9990 


PRINT #6;"YOU HIT ";HITS;" WORDS," 
PRINT #6s PRINT #6; "AND MISSED 10-HIT 

S » II I* 

«V m 

PRINT # 6 :PRINT #6;"YOUR SCORE IS”:PRIN 

T #6:PR I NT #6;SCR;” POINTS!" 

FOR PAUSE=1 TO 750:NEXT PAUSE 

GOTO 1307 


DATA 63.21,18,58,42,56,61 
37,35,8, 10,47,40,62,45, 1 1 
23 


57,13,1,5,0, 
16,46,22,43, 


NK 10000 DATA 104, 104, 104. 133.203. 104, 133,205, 
104,133,204,160,26,165.203,209 
DJ 10010 DATA 204,240,3, 136,208,247, 132,206,96 
NC 10020 DATA 104, 104, 104,133,203, 169, 128, 133, 
204,169,170,141,1,210,169,255 
PO 10030 DATA 141,0,210, 166,204, 160, 1 , 136,208, 
253,202,208,248,72,138,72 
JC 10040 DATA 166,203, 173,10,210,157,196,2,104 
,170,104,56,233,1,240,3 
DH 10050 DATA 76,41,6,72, 165,204,56,233. 16,201 
,32,240,6,133,204,104 

LH 10060 DATA 76,39,6, 104, 169,0. 141,1,210, 141, 
0,210,96 

0110100 DATA 81,1,60,5,81,1,81,1,81,1,96, 1,81 
,1,81,1,96,1,81,1,60,6,60,1,81.2,81,1 
,96,2,96,1,121,2 

EN 20000 POKE TXTROW, 2: POKE TXTCOL,20 
BE 20010 PRINT WRDSCR; " POINTS!!!" 

NE 20020 RETURN 

HC 20100 POKE TXTROW, 2: POKE TXTCOL , 20 : PR I NT " 
04 SPACES! RETURN 
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GB 20200 T0$ = T1$:GOSUB 160:POSITION T1X,T1Y:F0 
R 1 = 1 TO CPT:PRI NT #6;” ";:NEXT I:HIT 

S=HITS+1:HIT=HIT+1:RETURN 
GG 20210 T0$ = T2$: GOSUB 160:POSITION T2X,T2Y:F0 
R 1=1 TO CPT:PRINT #6;" ";:NEXT I:HIT 

S=HITS+1:HIT=HIT+2:RETURN 
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Stock Market 

Sul Kaftan 


The Atari is an excellent computer for action game 
programming. However, you should not forget that the 
same features that make it a great games computer also 
make it ideal for a variety of real-life simulations. 

"Stock Market" is a good example of the sophisticated simula¬ 
tions that can be done on your Atari. It can be used as an 
educational tool or as a game, and it is sure to be enjoyed for 
many hours. The program uses approximately 8K, so it can be 
played on any Atari computer. 

After you run the program, it will pause for a few seconds 
before prompting you for the number of players (1-5). From 
that point, the game is self-explanatory. After the stock codes 
have been displayed and you have learned the function keys, 
the screen will go blank for another few seconds. Then the top 
line will transform into a stock ticker, displaying the three- 
letter stock codes and their respective costs per share. That's 
when the fun begins. 

Thanks to machine language and the vertical blank inter¬ 
rupt (VBI), the ticker remains active throughout each play ses¬ 
sion, even during transactions. All fluctuations will be 
displayed on the ticker, so keep a close eye on it. 

When you press the BUY or SELL key, all prices will be 
frozen. This makes the game fair to all players. However, the 
CREDIT CHECK key will not freeze prices. 

It is helpful to keep a record of what price you paid for 
certain stocks. The game will keep a record of which stocks 
you own, and it will list your holdings whenever you buy or 
sell shares. Also, remember your identification number (1-5), 
but the game will remember your name. 

The names of the companies used in the simulator are 
completely fictitious. Should such a company name exist, it is 
purely coincidental. 

Stock Market 

For error-free program entry, read "The Automatic Proofreader " in Chapter 1 before typing 
in this program. 

MB 1 1 SUMMARY = 13000 
NI 12 GOSUB 14000 

DO 13 POKE 16,64: REM DISABLE 'BREAK 7 KEY 
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DE 25 
FG 30 
EG 60 

II 65 

FD 66 
CL 67 

GC 70 
El 80 
CC 100 
IK 101 
HO 102 
FA 103 
BN 104 
BI 105 
GL 106 
(IF 107 
GO 108 
AG 109 
LC 1 10 
EG 1 1 1 
OK 1 1 2 
HH 1 1 3 
AG 1 14 
GL 1 1 5 
FD 1 1 6 
LB 1 17 
CP 1 18 
BA 1 1 9 
NE 120 
PE 130 
IN 135 

HI 140 

JD 200 
BB 205 
DF 2 10 

KH 250 


CC 260 

AC 2 65 
GP 270 

NH 280 


GOTO 130 

RESTORE 1004-ECsREAD D$ , A , B , DD$ : RETURN 
? :? NAME*(HM*20,HM*20+NL(HM));" OWNS:": 

9 

FOR EC=1 TO 20:IF SH(HM,EC)=0 THEN NEXT 
EC:GOTO 70 

? CHR* (32+3* (AV(EC)=0) ) ; 

? SH(HM,EC);" shares of ";:GOSUB 30:7 D * 
;" ( " ;DD*;")":NEXT EC 

7 "PRESENT CREDIT *";W(HM) 

RETURN 

REM ** STOCK TITLES 
DATA ASTERISK ELEC.,22,10,AST 
DATA AV&V, 55,3, AW 
DATA BORVAC AIR,45,5,BOV 
DATA BOWLAND CORP.,25,5,BWL 
DATA COMLINK COMP-,30,8,COM 
DATA CROY GENET ICS, 15, 14, CRG 
DATA DELTON CHEM.,40,6,DLT 
DATA FAIRVIEW MTR.,46,10,FRV 
DATA GEM MILLS,23,6,GEM 
DATA GIBSON AERO.,40,5,GIB 
DATA I.M.I.,54,22,IMI 
DATA KATTAN PROD.,39,9,KTN 
DATA LOCKE CORP.,17,3,LOC 
DATA METER ONE 0IL,35,7,MT0 
DATA RINGER AMERICA,25,5,RNA 
DATA SAFE STEEL,12,2,SFS 
DATA SDNER CORP.,43,7,SNR 
DATA TEXTAR CORP.,36,12,TEX 
DATA UNION TC,45,20,UTC 
DATA WEDWAY COMM.,30,5,WED 
REM ** INITIALIZATION 

FOR I = T ADR TO TADR+199:POKE I,0:NEXT Is 
RESTORE 101 

DIM STOCK(20),D*(30),AV(20),DD*(3),V*(1 
0) , CO(20) ,CODE* (3) 

FOR ST=1 TO 20 

READ D*,A,B,DD*:CO(ST)=B 

STOCK (ST)=A+INT( (RND (0) * B) * 100) /100:AV ( 
ST) =I NT (RND (0) *5 0 00) +3 0 00: NEXT ST 
TRAP 250:7 CHR$(125);"HOW MANY PLAYERS 
(1-5) "; : INPUT PL: TRAP 40000:PL=I NT (PL) 

:IF PL<1 OR PL>5 THEN 250 

DIM NAME* (PL*20 + 20) , W (PL) , SH (PL, 20) , NL ( 
PL ) 

7 "EACH PLAYER STARTS WITH *3000" 

7 :FOR M=1 TO PL:7 "NAME OF PLAYER #";M 

";:INPUT D*:NL(M)=LEN(D*)-1 
NAME* ( 20*M, 20*M + NL (M) ) =D*: NEXT M 
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EN 285 GOSUB SUMMARY 

BL 600 FOR A= 1 TO PL:FOR B= 1 TO 20: SH ( A, B) =0: N 
EXT B: W (A)=3000:NEXT A 
JP 640 UU = USR ( 1585) 

MF 650 GOTO 10000 

JC 1000 REM ** EXIT MAIN LOOP 

PB 1010 EP = PEEK (764 ) : IF EP = 255 THEN RETURN 
FP 1015 POKE 764,255 

PI 1020 IF E P = 21 THEN GOSUB 2000 

AC 1030 IF EP = 62 THEN GOSUB 6000 

DB 1040 IF E P = 1 8 THEN GOSUB 12000 

KH 1060 RETURN 

MB 2000 REM ** BUY STOCKS 

Cl 2002 TRAP 5000: POKE 755,2 

JE 2003 ? CHR$ ( 125) : ? ”C8 SPACESIenter 'RETURN 

? to exit" 

AG 2005 ? :? "WHICH PLAYER WILL BUY STOCKS <1- 

" ; PL ; " ) " ; : INPUT HM: TRAP 40000 
KJ 2010 GOSUB 60 

HI 2040 ? :? "Enter code of desired stock " ; : I 

NPUT CODE$ 

AJ 204 1 IF CODE$ = " " THEN 2002 

MH 2050 FOR CV=1 TO 20:RESTORE 100 + CV:READ D$, 

A,B,DD$:IF DD$=CODE$ THEN 2070 
BJ 2055 NEXT CV:? "CAN'T LOCATE " ; CODE$ : GOTO 2 
040 

KO 2070 ? CHR$ (125) : ? CV;") ";D$:? :? AV(CV);" 

SHARES AVAILABLE AT":? ;STOCK(CV); 

" PER SHARE." 

DA 2080 ? :? "YOU HAVE ; W (HM) ; " . " 

HB 2082 PO=INT (W (HM) /STOCK (CV) ): IF PO)AV(CV) T 
HEN PO=AV(CV) 

PL 2085 ? "You may buy up to ” ; P O ; " shares." 

IJ 2090 TRAP 2002:? :? "HOW MANY SHARES ";:INF* 

UT WANT:TRAP 40000 

EM 2095 IF WANT)AV(CV) THEN ? ***** ONLY ";AV(C 

V);" SHARES AVAILABLE" 

AL 2 10 0 COST = STOCK (CV) * W A N T 

FM2110 IF W (HM) —COST <0 THEN ? " * * * THAT WOULD 

COST $ ";COST:GOTO 2080 
LL 2 120 ? WANT;" shares of ";D$ 

EL 2130 W(HM) =W(HM) —COST: SH (HM, CV)=SH(HM, CV) + W 
ANT 

HB 2 1 3 5 AV(CV)=AV(CV)—WANT 

GP2140 ? :? "Cost of transaction $" ; COST 

LJ2150 ? "Player " ; H M ; " ' s present credit $ " ; W 

(HM) 

HA 2160 POKE 755,0:? "HIT ANY KEY TO CONTINUE" 
EC 2 170 IF PEEK (764 ) =255 THEN 2170 
JK 2 180 POKE 764,255: GOTO 2002 
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GO 5000 
AF 6000 
PO 60 10 

CO 6020 

KP 6030 
MJ 6040 
KI 6050 

NB 6060 

BP 6070 

GP 6080 

II 6090 

BO 6095 
CD 6 1 00 

LK 6 1 1 0 

DC 6 1 20 

OP 6 1 25 
MI 6 130 

GA 6 14 0 
IG 61 50 
El 6 1 60 
JP 61 70 
HB 8000 
IH 10000 
OM 10010 
CD 10015 
DD 10019 
AO 10020 
HH 1 0030 

KI 1 1 005 

CK 110 10 
HL 1 1 020 

JO 1 1 0 30 
MM 110 4 0 

OD 1 1 050 


? CHR$(125) s POKE 755,0:RETURN 
REM ** SELL STOCKS 

? CHR$(125):POKE 755,2:7 ”C9 SPACESJen 

ter "RETURN-- to exit” 

TRAP 8000:7 :7 “WHO WILL SELL STOCKS 

1-";PL;”)";:INPUT HM:TRAP 40000 
GOSUB 60 
TRAP 6020 

7 : 7 "ENTER STOCK CODE 11 ; : INPUT CODE*: 

IF CODE$="" THEN 6020 

FOR CV=1 TO 20:RESTORE 100+CV:READ D*, 
A , B „ D D * :IF DD$=CODE$ THEN 6080 
NEXT CV:7 "CAN"T LOCATE " ;CODE*:GOTO 6 
0 50 

7 CHR$(125):7 CV;") ";D*:7 :7 "YOU OWN 

" ; SH (HM , CV) ; " SHARES. *’ 

7 :7 "CURRENT PRICE PER SHARE *";STOCK 

(CV) 

7 "YOUR PRESENT CREDIT *";W(HM) 

7 "HOW MANY SHARES DO YOU SELL ";:INPU 
T GIVE 

IF GIVE>SH(HM,CV) THEN 7 "* * * YOU OWN 

ONLY ";SH(HM,CV);" SHARE<S)":GOTO 6100 
NET=GIVE*ST0CK(CV):7 :? "NET GAIN *"; N 
ET 

SH(HM, CV)=SH(HM,CV) —GIVE 

W(HM)=W(HM)+NET:7 "PRESENT CREDIT *";W 
(HM) 

AV(CV)=AV(CV)+GIVE 

7 : 7 "HIT ANY KEY TO CONTINUE” 

IF PEEK(764)=255 THEN 6160 


POKE 

764,255 

:GOTO 6000 


POKE 

7 55,0: 7 

CHR*(125): 

RETURN 

X = 0 : 

REM 

* * 

MAIN LOOP 


FOR 

1=0 

TO 

190 STEP 10 

: X = X + 1 


IF PEEK(764)<>255 THEN GOSUB 1000 
RESTORE 100+X 

A D D = - C O ( X ) + I NT (RND ( 0 ) DcCO(X) *200 ) / 1 0 0 
STOCK(X)=STOCK(X)+ADD:STOCK(X)=ABS(ST 
OCK ( X ) ) 

FOR P = T ADR+I TO TADR+I + 10:POKE P,0:NE 
XT P:P=TADR 
READ D*, A , B , DD* 

FOR L =1 TO 3:POKE P+I+L, ASC (DD* (L,L) > 
—32:NEXT L 

V * = S T R * ( INT (STOCK (X) *10) /10) 

LN = LEN (V*) : FOR L=1 TO L N: POKE P+I+L+4 
, ASC (V* (L, L) ) — 32: NEXT L 
NEXT I:GOTO 10000 
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ee 12000 

BN 12010 
AK 12020 
KB 12030 
SH 12040 
DA 12050 
LI 12060 


REM ** CREDIT CHECK 
? CHR$(125) 

? :? "CIS SPACES}CREDIT CHECK" 

7 . r> 

FOR EPL=1 TO PL 

D$ = NAME$ ( E F' L * 2 0 , EPLI20 + NL (EPL) ) 

? EPL;**) " ; D$ ; " (3 SPACES} W ( EPL ) 

: NE X T EPL:RETURN 


r> 


FK 13000 
EL 13010 

AK 13020 
HF 13025 

GO 130 3 0 

HI 1304 0 

NL 13080 


REM ** SUMMARY 

RESTORE :POKE 752,1:POKE 82,1:7 CHR$ ( 
125) ; 

FOR 1=1 TO 20:READ D$,A,B,DD$ 

IF 1=1 THEN 7 "avail M ;AV(I);"code "; 
DD$;"stock ";D$:NEXT I 

7 "C6 SPACES}AV<I);"C5 SPACES}";DD$ 

?"C6 SPACES}";D$ 

NEXT I:POKE 703,4:POKE 82,2:POKE 752, 
1 

7 CHR$ ( 125) ; "DURING PLAY YOU MAY: ":7 
"C3 SPACES}BUY STOCKS BY PRESSING 7 B 


CO 13090 


Cl 13095 
JI 13100 
BN 13 110 


IE 13120 
EJ 13125 
JO 13 130 
JB 13140 
NC 13150 
BN 14000 
LK 14005 

FC 14010 
BK 1 4020 
AF 1 4030 
NL 14040 
HE 14045 

NK 14 050 
PH 14055 

OE 14056 
OF 14057 
LD 15000 
HF 15002 
KP 15004 


7 "(3 SPACES}SELL STOCKS BY PRESSING 

? S 7 " 

7 "OR-,..(press any key)"; 

IF PEEK(764)=255 THEN 13100 

POKE 764,255:7 CHR$(125):? " CHECK Y 

OUR CREDIT BY TYPING 7 C 7 " 

PRINT 

7 "PRESS ANY KEY TO START"; 

IF PEEK(764)=255 THEN 13130 
POKE 764,255 

POKE 703,24:7 CHR$(125):RETURN 

REM ** MACHINE LANGUAGE LOADER 

RESTORE 15000:FOR AX=1536 TO 1596:REA 

D AXP:POKE AX,AXP:NEXT AX 

POKE 1563,PEEK(88):POKE 1564,PEEK(89) 

DIM TAPE$ (200) :TADR = ADR(TAF’E$) 

IT=INT (T ADR/256) 

POKE 1560,TADR-256*IT:POKE 1561,IT 
POKE 1576,PEEK(548):POKE 1577,PEEK<54 
9) 

RETORN 

REM -- THE FOLLOWING NUMBERS ARE MACH 
INE LANGUAGE 

REM -- CODES. TYPE CAREFULLY! 

REM 

DATA 173,47,6,205,10,210 
DATA 176,31,174,48,6,232 
DATA 224,200,208,2,162,0 
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JE 

1 5006 

DATA 

142,48,6,160,0,189 

MG 

15008 

DATA 

5,52,153,64,156,232 

BD 

15010 

DATA 

224,200,240,8,200,192 

PA 

15012 

DATA 

40,208,240,76,62,233 

FG 

15014 

DATA 

162,0,76,34,6,200 

IP 

15016 

DATA 

80,104,169,0,162,6 

FJ 

15018 

DATA 

141,36,2,142,37,2 

IB 

15020 

DATA 

96 
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Adding Excitement to 
Educational Programs 

Barry Sperling 


The Atari is an outstanding computer for use in the class¬ 
room, particularly when onscreen printing is made more 
exciting with modes 1 and 2. 

All students like to see their names in lights. Unfortunately, 
even when you put a large, multicolored name request in 
graphics mode 2, the name that the student types in appears 
in tiny white letters near the bottom of the screen. 

How can you get that name on the top where it belongs? 

My first thought was to alter the display list, the program 
in RAM that controls the ANTIC chip. It governs which mode 
line will appear at what level on the screen. GRAPHICS 2, for 
example, has ten lines of double-width, double-height letters 
followed by four lines of normal size letters (GRAPHICS 0). 

The fifth and sixth bytes of the list carry the address of 
the data that will be put on the screen. 1 decided to change 
those bytes to point to the text window. Anything typed in the 
text window would then appear on the large screen; the tech¬ 
nique is shown in the short program given below. 

10 GRAPHICS 2:DL=PEEK(560)+256*PEEK(561) 

20 POKE DL + 4, PEEK <660) :POKE DL+5,PEEK (661 ) 

30 ? "TYPE IN A NUMBER.INPUT A 

Line 10 sets the screen for large type with a text window. 
Locations 560 and 561 in RAM hold the address of the first 
byte of the display list in standard low byte/high byte format. 
Therefore, DL + 4 is the fifth byte of the list. 

Locations 660 and 661 hold the start of the text window 
(upper left byte). POKEing their values into the data address 
for the main screen allows your typing to appear on the top in 
large letters. 

Unfortunately, as you can see when you try it, your 
handiwork appears in both the screen and the window. What 
do you do? One solution would be to find some permanently 
empty memory and point the text window to that. Another 
would be to make the window invisible with SETCOLOR 
1,0,0 and SETCOLOR 2,0,0, making the characters and back¬ 
ground black. Unfortunately, this wipes out two of the pos- 
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sible colors that you might want to use, leaving only the 
background and two character colors. 

Can you get all the colors while staying in BASIC? You 
can, but it is more complicated. I envisioned a screen with all 
five colors available, no question mark for a prompt, and the 
input appearing with large letters. The following program 
gives you all of that and throws in audible feedback for good 
measure. 

Feel free to change the programs to suit your own needs 
and preferences. You might want to accept longer first names, 
for example, or add a redefined character set to sprinkle a few 
Martians around the screen. A loop might be used to flash the 
words FIRST and RETURN while waiting for input. Maybe a 
tune could play during VBLANK as an extra attraction. 

Using these techniques, you can make a good educational 
program even better. A strong introduction to your program 
will give the kids a positive attitude about it right from the start. 


Exciting Inputs 

For error-free program entry , read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 


ME 10 
MA 20 


EA 30 


PA 40 


DIM A$(10):OPEN #2,4, 
GRAPHICS 18:POSITION 
OSITION 1,3:7 #6 
ON 


. » 


1,5 


, O 

#6 


II 


II 


YOUR 


0 , " K 

6,1:7 #6; ”hELDE? " : P 
5 type in":POSITI 
FIRST NAME,":POSITION 


If 7 


#6 




then push H3aHaT- " s SETCOLOR 0,12,8 
SETCOLOR 1,15,12:SETCOLOR 2,1,6:SETCOLO 


R 3,3,6 
TRAP 20 
7 #6 ;"t 


•I 


SETCOLOR 4 
A$=” -• : POKE 
POSITION 1 


6,4 

764,255:POSITION 4,9: 
5,9:7 #6;“*”:POSITION 


5,9 

BP 50 GET #2, A: IF A= 155 THEN TRAP 40000:GOTO 9 
0 

DB 60 IF A= 126 THEN A$ = A$ ( 1 , LEN ( A$) -1 ) : POSITIO 
N 5+LEN(A$),9:7 #6;” “:POKE 85,PEEK(91): 

POKE 84,9:GOTO 50 

GJ 7 0 A$ (LEN ( A$) +1 ) = CHR$ (A) : SETCOLOR 0,3 + 2*LEN 
< A*) ,8:SOUND 0,200-10ILEN(A$) , 10, 12:F0R 
T=1 TO 30:NEXT T:SOUND 0,0,0,0 
PP 80 PUT #6, A: GOTO 50 
IL 90 IF LEN ( A$ ) < 1 THEN 20 

NE 100 FOR T=1 TO LEN(A$) : IF ( ASC ( A$ (T, T) ) < 65 
AND ASC(A$ (T, T) ) < >32) OR ASC (A$(T, T) ) >9 
0 THEN 20 
CF 1 10 NEXT T 

LB 120 REM REST OF YOUR PROGRAM 
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Test Maker 

Stephen Levy 


Teachers will find this easy-to-use system for storing ques¬ 
tions and printing tests to be an invaluable tool and an 
effective timesaver. Questions can be multiple-choice, fill 
in the blank, short answer, true/false, or any combination. 

"Test Maker" was written for teachers. It allows you to print 
nicely formatted tests using questions that have been pre¬ 
viously LISTed to disk or tape. 

You may save numerous files of questions and pick and 
choose from all the files. Questions can be used in any order. 
Once you have selected the questions, the program will print 
out the test in a uniformly formatted style. 

Midterms and finals become a snap. Just load up all test 
questions used throughout the term and pick the ones you 
want for the final. Save questions from year to year, and add 
to your list each year. Think of it—a simple, easy-to-use way 
to create different tests for each of your classes without having 
to retype the test. It's a teacher's dream come true. 

When printing your tests, you can use virtually any type 
of master. For instance, I have used Test Maker with standard 
ditto masters with an Atari 825 printer (removing the tissue, of 
course) to create masters that have produced well over 100 
copies. 

Creating the Questions 

Test Maker stores all your questions in DATA statements. If 
you create different files for each unit and do not use DATA 
statement line numbers more than once, you will be able to 
draw questions from numerous files. Keep track of the DATA 
statement line numbers. I find it best to print out a copy of the 
files so I know what is in each file. 

Writing the actual questions in DATA statements requires 
that you follow a few simple rules. Here's how a sample 
multiple-choice question would look in final DATA statement 
form: 

600 DATA 4 

601 DATA The first President of the 

602 DATA United States was 

603 DATA Thomas Jefferson 
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604 DATA George Washington 

605 DATA Jimmy Carter 

606 DATA Richard Nixon 

The first DATA statement (line 600) tells the program that 
this is a four-choice multiple-choice question, although you 
could have had as few as two choices. Put a 0 or 1 here if the 
question is not multiple-choice. 

Lines 601 and 602 are the actual question. All questions 
must be broken into two DATA statements, with the break 
occurring between words. In that way, questions can exceed 
the three-physical-lines limitation imposed by Atari BASIC. 

Finally, each of the four possible answers appears as a 
DATA statement. 

The question could have been written this way: 

600 DATA 4,The first President of the,United States was,Thomas 
Jefferson,George Washingtonjimmy Carter,Richard Nixon 

However, I prefer the first method because it is easier to 
use months or years later when the questions aren't quite so 
fresh in my mind. 

I could also have included an indication of the correct an¬ 
swer as a REM: 

607 REM A is the correct answer 

Printing Special Characters 

Since the questions are held in DATA statements, it might be 
difficult to use a comma embedded in a question. The program 
would assume that the comma indicated the end of the DATA 
item. Whenever you need to include a comma in a question, 
press SHIFT = to get the vertical line character. The program 
will convert this to a comma when it prints a hard copy. 

You can print any character from the Atari character set 
(within the capabilities of your printer, of course). Science and 
math teachers can even print exponents. Just use the charac¬ 
ters that cause the printer to reverse linefeed one-half line, 
print the exponent, and then insert the characters which cause 
a half-linefeed forward. On an 825 printer, for example, the 
following keystrokes would produce an exponent of 2: 

ESC, ESC, ESC, CTRL +, 2, ESC, ESC, ESC, CTRL - 
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Be sure that you do not use any line number below 571 
for a DATA statement. In addition, it's best not to use the 
same line numbers in more than one file. If you have dupli¬ 
cate line numbers, then those questions cannot be used on the 
same test. You can avoid the problem completely if you start 
each question on a line divisible by 10, starting with 600, and 
if you never use a number twice. 

Printing Tests 

Once you have created your test questions, you must LIST 
them to disk or tape. Do not use the SAVE command. For 
tape, LIST "C:" and note where on the tape the file starts. For 
disk, LIST "D '.filename". 

Assuming you have saved a copy of Test Maker and 
LISTed copies of the DATA statements, you are ready to print 
a test. First, load Test Maker from disk or tape. Change line 20 
so it contains your own directions. Then ENTER the files that 
include any questions you want to include. If you have used 
different line numbers for all your questions and have not 
used a line number below 571, you will end up with the ques¬ 
tions as well as the driver program in memory. 

Referring to your list of questions (or scanning the DATA 
statements), make a list of the first DATA statement line num¬ 
ber for each question that you want to include. Also note the 
order in which you wish them to appear. You do not have to 
use all the questions that are held in memory. 

Run the program. Answer the prompts as they appear. 
Enter one line number at a time, pressing the RETURN key 
after each one. When asked "How many questions on this 
page?" you'll have to estimate how many questions will fit on 
your page. It may be helpful to first print out the entire test on 
a continuous piece of paper, figure how many questions 
should be on each page, and then ask for another copy of the 
test. You can print additional copies of the test without enter¬ 
ing all the numbers again. 

Practice 

When learning to use this program, it is a good idea to make a 
few practice runs. Create some questions and print some sample 
tests. Get the hang of it before you tackle the real thing. 

After just a little practice, you'll find that this program is 
extremely easy to use. It even includes a simple routine to tell 
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you when you have entered DATA incorrectly. Also included 
are three sample questions (all lines from 600 up). These sample 
questions should not be typed in or included as part of Test 
Maker; they have only been included as examples. 

Test Maker 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

ED 10 DIM YES*(1).A*(110),Q1*(125),Q2*(125),P* 
(250) ,BL* ( 1 1 ) :BL* ="<11 SPACES!“ 

AB 20 DATA DIRECTIONS: REPLACE THIS LINE WITH 
YOUR SPECIFIC DIRECTIONS FOR THE TEST. 

HO 30 TRAP 30 : PR I NT CHR* < 1 25 ) : ” HOW MANY OUESTI 
ONS ON THE TEST";:INPUT NUM 
OP 35 IF NUM< 2 THEN PRINT CHR*(253>;CHR*(125); 

"YOU MUST HAVE AT LEAST 2 QUEST IONS":FOR 
1 = 1 TO 1500:NE XT I:GOTO 30 
ND 37 DIM N(NUM) 

U40 PRINT "ENTER THE DATA STATEMENT NUMBERS 
<6 SPACES!ONE AT A TIME.“:G=60 
JO 50 FOR 1 = 1 TO NUM 
ON 60 TRAP 70: INPUT D:GOTO 80 

AC 70 PRINT CHR*(253);"ENTER A NUMBER PLEASE, 

TRY AGAIN.":FOR W=1 TO 500:NEXT W:GOTO G 
NB 80 N ( I ) =D 
PF 85 NEXT I 
CJ 90 Z = 1 : P = 1 

FI 100 PRINT "Questions listed to the Screen o 
r Qrinter?";: INPUT YES*:CLOSE #1 
DE 105 TRAP 70 

KL110 G= 1 05: PR I NT :PRINT "This is page " ; P ; " 
.How many":PRINT "questions on this pag 
e”;:INPUT C:IF Z>1 THEN GOTO 250 
HH 200 IF Y E S * = ” S “ THEN OPEN # 1,8,0 , " E : " : GOTO 
240 

IG210 TRAP 230: IF YES*="P N THEN OPEN #1,8,0." 
P: " :GOTO 240 

PE 220 PRINT "Enter a P -for Printer or S For S 
creen";CHR*(253):PRINT :INPUT YES*:CLOS 
E #1:GOTO 105 

Cl 230 PRINT CHR*(253);"TURN ON THE PRINTER!": 
PRINT :PRINT :GOTO 100 

DD 240 RESTORE : READ P*:PRINT #1NameFOR I 
=1 TO 30:PRINT #1NEXT I:PRINT #1: 
PRINT #1:GOSUB 500 
JJ 250 P = P +1 : TRAP 550: FOR 1 = 1 TO C 
LD 255 IF Z >NUM THEN GOTO 350 
HP 260 D = N ( Z ): RESTORE D : PR I NT #1 

KB 270 READ TYPE , Q 1 * , Q2* : Y = 0 : CH=64 : L = LEN ( Q 1 * ) 
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EP 280 

AE 290 

NB 300 
LA 310 
KG 320 

LH 330 
PC 340 
CN 345 
AD 350 

NG 360 
DH 370 
LJ 380 

BO 390 
GL 400 
GN 500 

00 510 

IP 520 
CP 530 
HD 540 
CP 550 


NL 560 

HD 570 
OB 600 
FG 601 
HO 602 
OF 610 
LP 61 1 
NL 612 
HC 613 
DA 6 14 
BN 615 
IA 616 
OG 620 
FK 621 
GH 622 

HD 623 
DB 624 
BO 625 
IB 626 

160 



P$=Q1$:P$(L+l, L + 1)=" ":P$(L+2,LEN(Q2$)+ 

1+L)=Q2$ 

PRINT #1;”_";Z; " . :GOSUB 500: 

Z = Z + 1 

IF TYPE< 2 THEN GOTO 340 
FOR ANS=1 TO TYPE:Y=0 

CH=CH+1:READ A*:PRINT #1;BL*;CHR$<CH> ; " 
";:P* = A$:GOSUB 500 
NEXT ANS 

IF YES$="S" THEN FOR W=1 TO 500:NEXT W 
NEXT I:GOT O 105 

PRINT :PRINT "Print another copy"; : INPU 
T YES$ 

IF YES$="N” THEN 380 
GOTO 90 

PRINT "ARE YOU SURE YOU ARE FINISHED";: 
INPUT YES$ 

IF YES$<>"Y" THEN 350 
END 

FOR X =1 TO LEN(P$) : IF P$ (X, X)=" I" THEN 
P*(X,X)="," 

Y=Y+1:IF P$(X,X)=" " AND Y>50 THEN PRIN 

T #1:PR I NT #1;BL*;:Y = 0 
PRINT #1 ;P* < X, X > ; 

NEXT X 

Y = 0:P$="":PRINT # 1 :RETURN 

PRINT :PR I NT "YOU HAVE AN ERROR IN YOUR 
DAT A 18 SPACES!STATEMENTS. CHECK THE QU 
ESTIONS WHOSE DATA BEGIN ON THE" 

PRINT "FOLLOWING LINES":PRINT N(Z),N(Z- 
1 ) 

END 

DATA 1 

DATA What is the capital of the 
DATA United States? 

DATA 4 

DATA The first President of the 

DATA United States was 

DATA Thomas Jefferson 

DATA George Washington 

DATA Jimmy Carter 

DATA Richard Nixon 

DATA 4 

DATA The only President of the 

DATA United* States to resign from offic 

e was 

DATA Thomas Jefferson 
DATA George Washington 
DATA Jimmy Carter 
DATA Richard Nixon 
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Shopping List 

John E. Dombrow 
and John Dombrow 


"Shopping List" is a program that lets you create, update, 
and save to disk personalized shopping checklists. It com¬ 
bines menus, editing capabilities, parameter-driven print¬ 
ing, and error recovery to produce a remarkably practical 
shopper's aid. 

"Shopping List" incorporates mixed graphics modes and dis¬ 
play list interrupts. It also uses PLOT and DRAWTO in 
GRAPHICS 0, machine language subroutines, and a text win¬ 
dow in GRAPHICS 0. Other features include multiple colors 
and luminances as well as keyboard INPUT without the ? 
prompt. 

Shopping List was designed to be practical. It allows you 
to specify shopping categories in the order that you find them 
at your grocery store. If that order changes, it's a simple mat¬ 
ter to change the sequence. Items and categories may also be 
added, deleted, or changed. When items are changed, the new 
name will be displayed on the screen where the old name ap¬ 
peared, allowing you to verify any changes that you make. 
Once a new function is performed, the changed names will 
automatically be sorted into their proper alphabetic sequence. 

Shopping Menus 

Main Menu. When the program is initially run, you'll get 
the Main Menu. It offers the following options: 

View List. If no file is loaded in memory, this selection 
will display a directory of all .SHP files on disk and ask which 
one you want to load. However, if a file is loaded into mem¬ 
ory, it displays the Categories screen instead. To override this 
action and load a new file, select Read File from the Main 
Menu when a file is currently in memory. 

Print List. If no file is in memory, this displays a directory 
of .SHP files and asks which file to load for printing. It contin¬ 
ues to a screen which lets you specify normal or condensed 
print, the number of shopping lists to print, the number of 
item columns to print, and whether you are using continuous 
forms or cut sheet paper (which would require a stop at the 
end of each page). This option is designed for use with an 
Epson MX-100 printer. 
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Read File. This lets you load a new file when one is al¬ 
ready in memory. If the file in memory has not been saved on 
disk, you'll get a warning message with several options. 

Save File. This will appear only if a file is currently in 
memory (variable C>0). It offers you the option of saving the 
file under its most recent name, saving it under a new name, 
or pressing RETURN to cancel. If you continue, the program 
will calculate the number of disk sectors necessary to save the 
current file. If sufficient space is not available, you'll be so 
notified and no attempt to save the file will be made. At that 
point, you may DELETE some other file to make room or use 
a different disk. 

Create File. This option allows you to make up a new 
shopping list. If a file is in memory and has not been saved, 
you'll get a warning message with options; otherwise, you'll 
get a screen that lets you begin entering categories. A maxi¬ 
mum of 38 categories (governed by variable MC in line 620) is 
allowed. 

Delete File. This allows you to delete unwanted .SHP files. 
You'll get a directory and be asked which file to delete. If you 
don't want to delete a file, press RETURN. This option will 
not affect a file in memory and may be selected at any time. 

Quit. This ends program execution. If a file exists in mem¬ 
ory, you'll get a warning message with appropriate options. 

Every effort has been made to insure that a file or updates 
to a file cannot be accidentally lost by inadvertent use of the 
above options. Variable C (number of categories) and variable 
FS (file saved) are always checked to see if a file exists or dif¬ 
fers from the version saved on disk; if so, the program will 
allow you to recover. You always have the option to return 
from a selection that was inadvertently entered. To select an 
option, simply enter the associated letter without pressing 
RETURN. 

Directory Menu. This displays a directory of up to 20 
.SHP filenames per disk. It is also useful with Read, Save, or 
Delete. In the case of Save File, the directory is included as a 
convenience to show what filenames already exist. 

Each filename is displayed with a unique alphabetic 
identifier. This identifier allows for selection with a single key¬ 
stroke. All filenames are suffixed automatically with the ex¬ 
tender .SHP; you do not need to type in the extender yourself. 
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After the filenames, the remaining sectors available on the 
disk are displayed. 

Categories Menu. You'll get this menu if you want to 
view a list with a file in memory, view a list or read a file after 
a file is loaded, create a file, or use the Cats option from the 
Items Menu. 

The Categories screen will display all categories entered, 
in any order determined by you. To select an option, simply 
enter the associated letter. 

Add. This allows you to add categories to your shopping 
list. All additions will appear at the end of the list. When you 
enter the Add option, the text window will change to allow 
entry of the new categories. The format allows for up to 16 
characters per category; any characters beyond will be trun¬ 
cated. To exit, press RETURN with a blank category name. 

Insert. This option lets you insert a new category into an 
existing list. Enter the number that you want the new category 
to have and press RETURN. The text window will change to 
the Add mode for the entry of one new category. Then enter 
the new category and press RETURN. The Categories Menu 
will again be displayed with the new category inserted at its 
proper place. 

View. This lets you view, enter, and update the items 
associated with each category. Enter the category number and 
press RETURN. The Items Menu will then be displayed. 

Renum. This lets you rearrange the order of existing cate¬ 
gories. Specify the old category and its new location, and the 
Categories screen will be redisplayed with the categories in 
the new order. 

Change. This lets you change a category name. Enter the 
category number and press RETURN. The original name will 
be displayed for you to modify as desired; when you're 
through, press RETURN. The Categories Menu will be 
redisplayed with the change. 

Delete. This lets you delete an unwanted category. Enter 
the number and press RETURN. The text window will display 
the category name selected and ask for verification. Enter a Y 
or N. 

If you try to delete a category that still has items asso¬ 
ciated with it, further verification is requested. If you continue, 
all items associated with the category are deleted as well. 
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Main Menu. This returns you to the Main Menu. If you 
make a mistake while using any of these options, you'll get an 
appropriate error message and be returned to the Categories 
Menu. 

Items Menu. This menu and display will show all items, 
if any, associated with the selected category. All items will be 
in alphabetical order according to the ASCII sequence. A list 
of the remaining entries is displayed in the text window dur¬ 
ing certain options and is governed by variable ME (maximum 
entries) in line 620, which defines the maximum number of 
items across all categories (initially set to 400). The keyboard 
is set to lowercase when entering items, and the program will 
capitalize the first character of the item if necessary. 

To select an option, enter the appropriate letter without 
pressing RETURN. The following options are available. 

Next Pg (Next page). This displays the next sequential 
screen of items, if more items exist. 

Last Pg (Last page). This displays the previous screen of 
items, if you have advanced beyond the first screen. 

Add. This lets you enter additional items in the selected 
category. The items will be displayed in the order entered un¬ 
til you exit the Add mode; at that time all items will be sorted 
and page 1 of the Items Menu will be redisplayed. To exit and 
return to the Items Menu, press RETURN with a blank item 
name. 

Cats (Categories). This option will return you to the Cate¬ 
gories Menu. 

Change. This lets you modify an item name displayed on 
the current screen. Enter the appropriate item number and 
press RETURN. The item name will be displayed in the text 
window. Press RETURN after you have completed the change, 
and the new name will be displayed in place of the original. 

The new name(s) will be sorted into correct sequence 
when you select one of the Add, Cats, Sort, or Pg 1 options. 
That allows you to easily update all items. 

Delete. This deletes a specific item from the current 
screen. Enter the appropriate number and press RETURN. The 
item name will be displayed, along with the option to con¬ 
tinue. Enter Y or N accordingly. If Y is entered, the item will 
be deleted and scrolled off the graphics portion of the display. 

Sort. This forces a sort of all items associated with the se¬ 
lected category, if any updates have been performed. For ex- 
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ample, it may be used after making modifications with 
Change, to display all items in the correct sequence without 
having to exit the Items Menu or do additional Adds. After 
entering this option, the first page of the Items Menu will be 
displayed. 

Pg 1 (Page 1). This option displays the first screen of the 
Items Menu/display. If the items have been modified, they 
will be re-sorted into ascending ASCII sequence. 

Main Menu. Returns you to the Main Menu. 

Print Menu. This menu lets you print your list. To select 
an option, enter the corresponding number without pressing 
RETURN. It offers the following options: 

Normal/Condensed. This allows you to print your shop¬ 
ping list in normal or condensed print; the default is con¬ 
densed print. The default may be changed by modifying 
variable MODES in line 720 in the program. 

Number of Columns of Items. This lets you select the num¬ 
ber of columns of items across the page of the shopping list. 
The default value is 5; it can range from 1 to 9. The default 
may be changed by modifying variable COL in line 720. 

Number of Pages to Print. This lets you select the number 
of shopping lists to print. One list is considered a page. A 
page eject is issued after each list is printed. The default is 1; 
the value can range from 1 to 9. The default may be changed 
by modifying variable PAGES in line 720. 

Any changes made to these parameters during program 
execution will remain in effect until other changes are made 
(or until the session is completed). 

A Closer Look 

The shopping list file is kept in memory as a sequential group 
of records in F$. All items sequentially follow their respective 
category. Array P contains a relative displacement to each 
category in F$. Variable C maintains a count of active cate¬ 
gories, while variable E maintains a count of active items. 

When a category is added, it is placed at the end of F$, 
and P(C) is updated to reflect the displacement. When a cate¬ 
gory is inserted, the proper position in F$ is calculated, the 
data to the right of this position is moved one entry to the 
right, and the new category is inserted. Array P is then up¬ 
dated to reflect the new displacements. Likewise, when a cate¬ 
gory is deleted, the category and any items are removed by 
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moving all data to the right of the category back to the left 
and updating array P. 

The move left and move right subroutines are machine 
language subroutines. Machine language is needed to move 
data left because of BASIC's inability to move multiples of 256 
characters. 

The machine language subroutines implemented in Shop¬ 
ping List have been converted to string arrays. 

With the exception of documenting the Epson MX-100 
printer control characters, REMarks have been omitted from 
the program to increase speed and reduce size. For those who 
wish to analyze the program or make changes or enhance¬ 
ments, here is a line-by-line description. 

Line(s) 

20 Go to initialization code. 

30-40 Solicit a reply and compare it to legal values in R$. If not 
valid, sound the keyboard speaker. If valid, R is set to the 
relative position of the response in R$. 

50 Sound the keyboard speaker. 

60-70 Display Categories/Items screen in a two-column format. 
Note in line 70 the use of PLOT and DRAWTO in 
GRAPHICS 0. First the COLOR is set to the value of the 
character you wish to propagate with the DRAWTO. 
100-120 Solicit a category or item number and verify. If not valid, 
sound the keyboard speaker. 

130 Display all categories in two-column format. 

140-170 Display one screenful of items in two-column format. 
180-200 Sort all items associated with the specific category and re¬ 
set the changed flag. 

210-250 Display an item for change, solicit the new value, and 
verify. If the first character is lowercase, change it to 
uppercase. 

260 Set up a display list routine to alter the luminance of the 

characters in the GRAPHICS 0 graphics part of the screen 
and the luminance of the characters in the GRAPHICS 0 
text window, and change the background luminance of 
the text window to one shade darker than the graphics 
part of the screen. 

270-300 Display PRINT parameter menu with current settings. 
310-340 Print horizontal lines in shopping list printout. 

350-470 Display disk directory of .SHP files. Current option is dis¬ 
played in GRAPHICS 2 mode at the top of the screen, 
and the directory is displayed in GRAPHICS 0. A text 
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480-540 

550-570 

580-590 

600-720 

730 

740-860 

870-930 


940-1030 

1040-1220 

1230-1250 

1260-1350 

1360-1480 

1490 

1500-1610 

1620-1630 

1640-1670 

1680-1690 

1700-1880 

1890-1940 

1950-2010 

2020-2120 


2130-2610 


window is used at the bottom to request selections. The 
filenames found on the disk are saved in array D$. 
Request a file selection and validate. If invalid, sound 
keyboard speaker. If valid, build complete filename in 
FN$. 

Set up mixed GRAPHICS 2/GRAPHICS 0 screen by 
modifying the display list. The current option is displayed 
in the GRAPHICS 2 portion. 

Make a sound. The pitch of the sound is determined by 
the value passed in variable K. 

Initialize constants and variables; set up machine lan¬ 
guage subroutines and printer parameter defaults. 

Open the keyboard and screen editor for input. 

Display Main Menu, get selection, and go to appropriate 
routine. 

Quit option routine. Lines 880-900 are also used by other 
routines to display the FILE NOT SAVED CONT Y/N? 
option. 

Display Categories Menu, get selection, and go to appro¬ 
priate routine. 

Add or Insert category routine. 

Change category routine. 

Delete category routine. 

Renumber category routine. 

View category. 

Display Items Menu, get selection, and go to appropriate 
routine. 

Sort items routine. 

Next Pg option on Items Menu. 

Last Pg option on Items Menu. 

Add items routine. 

Change item routine. 

Delete item routine. 

Load a file from disk for Main Menu Read option, or 
View/Print option and no file in memory. See write-up 
for lines 2640-2830 for file characteristics. If a disk error 
occurs that inhibits loading the complete file, responding 
to the RETRY Y/N message with an N will cause reten¬ 
tion of data already read to help in the re-creation of the 
file. Before continuing, check the last category displayed, 
then resave and reread the partial file before rebuilding. 
Print a shopping list based on PRINT parameters. The ti¬ 
tle is printed in the Epson enlarged character set if the 
number of columns is greater than 1. The PRINT routine 
uses Epson MX-100 printer control characters. 
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2620-2630 

2640-2830 


2840-2930 

2940-2970 


Read file initialization. 

Save file routine. The file is a sequential file with items 
following their respective categories. Prior to writing a 
new category, a one-character binary value of the cate¬ 
gory number is written. This is used to detect each new 
category. Before writing the file to disk, a check is made 
to see if the file will fit. If a new filename is entered for 
the SAVE and the filename already exists on the disk, an 
OVERWRITE Y/N request message will be issued. 

Delete file routine. 

Error recovery subroutine for disk and printer errrors. 


Shopping List 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

DB 20 GOTO 600 

BP 30 GET # K 5 , A N S : FOR R = K1 TO LEN(R$) : IF ANS= A 
SC(R$(R,R)) THEN RETURN 
OK 40 NEXT R: GOSUR 50:GOTO 30 

NF 50 FOR N = K 1 5 TO K40:POKE 53279 , K0 : NEXT N: RE 
TURN 

KN 60 POKE 752, Kl:? #K6; CS$ ; : POSITION KI8-LEN( 
R$) / K 2 , K 0 : ? #6; ;R«; ; 

AC 70 COLOR 124: PLOT K 1 9 , K 1 : DRAWTO K19 , K19: RET 
URN 

BA 80 U = USR <PK, 656, Kl , 657 , K2) : ? ”1 ENTER NUMBE 

R TO ";R$; " :C8 SPACES > I 11 ; 

IB 9 0 U = USR (PK , 7 52 , K0,657,27 ) : ? " : " ; : I NPUT #K4 

, A$:POKE 752, Kl:? " { Z } " ; : IF LEN(A$XK8 T 

HEN A$(LEN(A$)+K1,KB)=BL$ 

EB 100 A$ = A$(K1,K8) : IF A* = BL*<33> THEN X=K0:RE 
TURN 

HA 110 TRAP 120:X = VAL(A$) :TRAP CLEAR: IF X>K0 A 
ND X < = K AND INT( X ) = X THEN RETURN 
AG 120 GOSUB 5 0: POKE 656,Kl:GOTO 90 
00 130 FOR I = X TO C:X = P(I) : J = I >K19: POSITION (I 
<K10)+K20*J, I-K19*J : ? #6;STR$(I) ; " " ; F$ 

( X , X + Z ) ; :NEXT I :RETURN 
NF 140 R$=I$:GOSUB 60 

HJ 150 X = F + EL + (PG-K1 ) *K38*EL: FOR I=K1 TO K38: I 
F X = T THEN 170 

Btt 1 60 J=I>K19:POSITI ON ( I< K10) +K20*J, I — K19 * J: 

? #6;STR$(I); M ”;F$(X,X+Z);:X=X+EL:NEXT 
I 

CM 170 K= I -K 1 : RETURN 

KC 180 X=(T-F)/EL: IF X<K3 THEN 200 
JD 190 U = USR (PK,204, Z,2 05,EL, 2 06,K0) : U = USR (SRT 
,ADR <F$ <F + EL)),X-Kl) 
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Chapter 4 


IE 200 
NB 2 1 0 

EC 220 

HI 230 
Cfi 240 
PK 250 
JJ 260 

BL 270 
JP 280 

OH 290 

PP 300 

NC 3 10 

AH 320 
FA 330 

IK 34 0 
LC 350 
KE 360 

FH 370 

IJ 380 

EJ 390 

FL 400 

on 4 10 

HH 420 
IK 430 


CHNG=K0:RETURN 

U=USR<PK ? 656,K1,657,K2):7 "I ENTER CHAN 
GE C 3 SPACES>: " ; F $ < J , J + Z ) ; " I "; : U = USR (PK, 
752 ? K0j 657, K19) 

? "j";: INPUT #K4„A*:POKE 752, K1 : ? ” CZ}" 

; : IF LEN ( A $ ) <EL THEN A$ (L.EN (A$) +K1 , EL) = 
BL $ 

I=ASC(A$):IF I>96 AND I<123 THEN A$<K1, 
K 1 )=CHR$ ( I-32) 

A$ = A$(K1,EL) : IF A$ = BL$ (K1 ,EL) OR A$ = F$ ( 
J,J+Z) THEN RETURN 

F$(J,J+Z)=A$:FS=K0:I=X>K19:POSITION K3+ 
K20*1,X-K19*1:7 # 6 ;A$CHNG=K1:RETURN 
DL = PEEK(560) +PEEK<561) *K256:U = ADR ( "HQ 
L D > LET TJTDTE3 CXTGHLJ3 T W > EhS) ” ) : POKE U 

+ K2,K:U = USR(PK,512,U, DL+24, 130,54286, 19 
2):RETURN 

POSITION K 2 , K 6 : ? #K 6 ; ,, |J. PRINT [lORMAL/E 
ONDENSED." ; MODE* 

? #K 6 ;"@. NUMBER OF COLUMNS OF ITEMS... 

...";COL 

? #K 6 ; n E. NUMBER PAGES TO PRINT. 

...";PAGES 

7 #K 6 ;"E. EONTINUOUS FORM/SINGLE SHEET. 

. . . M 5 TYPE$:RETURN 

7 # K1 ; " M ;A$; : IF COL>Kl THEN FOR J=K1 T 
O COL-Kls? #K1;”-";A$;:NEXT J 
7 #K1 5 " ”:RETURN 

7 #Klj"l ,, ;A$;sIF COL>Kl THEN FOR J=K1 T 
O COL-Kls? #K1;” - ";A$;:NEXT J 
7 # K1 ; " I " :RETURN 
GOSUB 550 

GOSUB 580:TRAP 540:OPEN #K1,K 6 ,K0,"D1:* 
.SHP”:D$= H " 

TRAP 390:INPUT #K1,A$:TRAP CLEAR:IF LEN 
(A$XK17 THEN 390 

L = LEN(D$) +K1 : D$ (L) =A$ (K3, K10) : D$ (L+K 8 ) = 
A$(K15):GOTO 370 

CLOSE # K 1 : POSITION K2,K1:7 " (QH35 R> 

LET": IF D^"" THEN 460 

T = LEN ( D$ ) / K22: IF INT(T)OT THEN D$(LEN( 
D$)+K1)=BL$(K1,K11):T=T+0.5 
FOR I = K1 TO T: R$ = BL$ (K5) : FOR J=K0 TO K1 
:X=<I+J*T)*K11:L = K18*J +K 1 

R$(L,L)=" I IF D$ < X-K10, X-K10)=" n THEN 
450 

R $ (L+Kl , L + K4 > = " <S>) ,, :R$(L+K2,L + K2)=CHR$ 

(64+X/K11):R$(L+K5,L+K12)=D$(X-K10,X-K3 
):R$(L+K14,L+K16)=D$(X-K2,X) 
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PJ 44 0 

MO 450 
LG 460 

GB 470 

IB 480 
HC 490 


KE 500 
IA 510 

GA 520 

EH 53 0 
PE 54 0 
m 550 
IP 56 0 


AH 57 0 

WE 58 0 
BG 590 


EA 600 

PB 610 

MH 620 
HG 630 

EE 640 

IE 650 
MH 660 

DL 670 

EB 680 

JI 690 


FOR X = L + K13 TO L+K6 STEP -KlsIF R$(X,X) 
= " n THEN R$ < X , X)=" - ":NEXT X 
NEXT J: ? R$; " I ” s NEXT I 

? "I";BL$(K1,35);"I M :? ”IC9 SPACES}";A* 

; ” C 10 SPACES} I " 

? ”CZ3C35 R}(C}":? :? :? "i 3 SPACES}ONL 

Y -.SHE-’ FILES ARE LISTED. ":RETURN 
GOSUB 50 

POSITION K0,K20s? "(DEL LINE}";sPOSITIO 
N K 8 , K20: ? 1 


ION OR * RETUR 


” . 
n 


GET #K5,X:IF X=155 THEN RETURN 
X =(X—64) * K 1 1 :TRAP 480:A$ = D$ (X-K10, X-K3) 

:TRAP CLEAR:IF A % =BL$<K1,K8) THEN 480 
FN$="D1:":FOR I=K1 TO K8:IF A*<I,I><> M 
M THEN FN$(I+K3)=A$(I,I):NEXT I 
FN$CI+K3)= ".SHP":RETURN 
GOSUB 2940:GOTO 360 

GRAPHICS K0:DL=PEEK(560)+PEEK(561)*K256 
U = US R (PK, 752 , K1 , 709,KS,710,66,711, 182,7 
12,66,DL+K3,71,DL+K6,K7,DL+28,65,DL+29, 
DL,87,K2> 

? #K6;" C3 SPACES] " ; R$; : POKE 87, K 

0:RETURN 
K = K 1 3 

FOR I=K15 TO K0 STEP -0.5:FOR J = K2 TO K 
0 STEP — K1 : SOUND K0 , K-J , K 1 0 , I : NEXT J:NE 
XT I:RETURN 

K0=0:K1=1:K2 = 2:K3 = 3:K4=4:K5=5:K6=6:K7 = 7 
:K8 = 8:K9 = 9:K10=10: Kl1=11:K12=12:K13=13: 
K14=14:K15=15 

K16=16:K17=17:K18=18:K19=19:K20 = 20: K2 1 = 
21:K22=22:K38=38:K39=39:K40=40:K128=128 
:K256=256 

MC=K38:ME=400:MF=K20:EL=K16:Z=EL-K1:CLE 
AR = 40000:F S = K 1 :C = K0 

DIM SRT$(126),ML$(39),MR$(47),PK$(25),M 
ODE$(K1),TYPE$(K1)F $ <(ME+MC)*EL),D$(MF 
*K11),FN$(K15),RN$(K15) 

DIM BL$(K40),A$(K40),R$(K40),I$(EL>,BZ$ 
(Kl),CS$(Kl),P(MC+K1) 

RESTORE 5000 

TO 126:READ QQ:SRT$(I,I)=CHR$(Q 
I 

TO 39:READ QQ: ML$ (I , I )=CHR$ ( QQ ) 


FOR 1=1 
Q):NEXT 
FOR 1=1 
:NE X T I 
FOR 1=1 
:NE X T I 
FOR 1=1 
:NE X T I 


TO 47:READ QQ:MR$(I,I)=CHR$<QQ) 

TO 25:READ QQ:PK$ < I , I )=CHR$ (QQ) 
RESTORE 
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AB 700 

IF 710 

PH 720 

AF 730 
FF 740 

NO 750 
HA 760 
01 770 
FL 780 
HB 790 

HP 800 
HP 810 
NP 820 
AJ 830 

IF 840 

IA 850 
CO 860 
JA 870 
IJ 880 

AH 890 
AO 900 
NP 91 0 

HH 920 

HP 930 
IF 940 
PF 950 
NB 960 

AP 970 

AA 980 
JB 990 

BJ 1000 

JK 1010 

CE 1020 


SRT=ADR (SRT$) :ML = ADR(ML$) : MR=ADR ( MR$) sP 
K=ADR<PK$> 

BL$=” ":BL$(K40)=" ”:BL$ <K2)=BL$:FN$=" ” 

:RN$=FN$:BZ$=CHR$(253):CS$=CHR$(125) 
MODE$= ,, C" s C O L = K 5 : PAGES = K1 : TYPE$=' , S" : P (K 
0)=K0:RS=K0 


□ PEN #K5 ,K4,K0, " K: ":OPEN #K4,K4,K0 , H E: “ 
GRAPHICS K2: U = USR<PK ,710,K4,711,72,712, 
K 4 ) 

POKE 201,K4sPOSITION K3,K1 
? # K 6 ;"SHOPPING LIST":? #K6 
? #K6,"Eiew list" 

? # K 6, ” rSr i n t list" 

IF C THEN ? # K 6, "Bea d file":? #6,"Eave 
file" 


? #K6,"Breate file" 

? #K6, "ELel ete file" 

? #K6, Tui t " : POKE 752, K. 1 

? CS$:? :? "INSERT DATA DISK AND ENTER 

SELECTION.” 

R*="VPRSCDQ”:IF NOT C THEN R$(K3,K4)=R 
* 

GOSUB 30 

ON R GOTO 2020,2130,2620,2640,940.2850 
IF FS THEN 910 

? CS$:? : ? "C3 SPACES 3-FILE NOT SAVED CO 

ntinue msazm"; 

I=R:R$=”NY ":GOSUB 30:IF R=K1 THEN 830 
R=I:FS=K1:GOTO 860 

CLOSE #K4:CLOSE #K5:GRAPHICS K0:POKE 20 
1 , K 1 0 

POSITION K9.K6:? " 


5HOPLI5T TERMINATED 


IV 


POSITION K2,K18:END 
IF NOT FS THEN 880 
F$=”":C=K0:E=K0 

GRAPHICS K0:U = USR <PK, 709,K12,710, 198,71 
2,50,703,K4):K=196:GOSUB 260 


R$ = 


II 


CATEGORIES 


"* s GOSUB 60: IF NOT C THEN 
R=K1:GOTO 1070 
X=K1:GOSUB 130 

? CS$;"(Q}(8 R3CW3C7 R3CW3C8 R3TW3C7 R> 
CE> ” 

? "I EDDC4 SPACES}I EIEW I EHANGE I 
C3 SPACES! ?C3 SPACES} I H 


II 


? ” { Z 3 C 7 R I 

C C 3 " ; 


■M* FOR MAIN MENU 


C 5 

R3 

■ C 6 

R 3- 
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JB 1030 

FI 1040 

KO 1050 

BC 1060 
FL 1070 
FO 1080 

l>: 1090 

FH 1100 
HF 1110 
AA 1120 


HD 1130 


HP 114 0 
HA 1150 

EG 1160 
JO 1170 

AG 1180 

HD 1190 

KI 12 00 

MH 12 10 
AK 1220 

KA 1230 
DN 1240 
DF 1250 
LA 1260 
EN 1270 
BK 12 80 


CH 1290 
JG 1300 

EE 13 10 


MAXIMUM NUMBER CATEG 


R$="AICDRVM":GOSUB 30:ON R GOTO 1070,1 
210,1230,1260,1360,1490,740 
? CS$;BZ$:? :? " 

IrWafcM^HairlaigT = : GOTO 1060 
? CS$;BZ$:? :? , 

R* ; 

FOR I =K 1 TO K 2 5 6 : NEXT I : GOTO 990 
IF C=MC THEN 1040 

? CS$;"CQ}C33 R>CE>":? " I (33 SPACES} I" 


NO CATEGORIES TO 


*> . 
* 


■ RETURN' FOR OPTIONS 


R } 


? n C Z } T 5 R 3 
CO"; 

IF R >K1 THEN K = C:GOSUB 80: IF NOT X TH 
EN 990 

ON R GOTO 1120,1120,1250,1280,1380,151 

0 

U=USR<PK,656,Kl,657,K2):? "I ENTER CAT 


ll 


;:U=USR(PK,752,K0 


EGORY : C 1 6 SPACES}I 
,657,K19) 

? " : " ; :INPUT #K4,A$:POKE 752,Kl:? " 

T Z } " ; : IF LEN(A$XEL THEN A$ (LEN ( A$) +K1 
,EL)=BL$ 

A$=A$(K1,EL):IF A$=BL$(K1,EL) THEN 990 
C=C+K1:FS=K0:K=LEN(F$)+K1:F$(K)=A$:IF 
R = K 2 THEN 1190 
P ( C)= K: X = C 

GOSUB 130:IF C<MC THEN ON R GOTO 1120, 
990 

? CS$:? : ? ” MZtzV.MZlUZ m ? l«]Srn 4 =»^ 

■HISaMiS3i ,, ;: K=K40: GOSUB 590: GOTO 990 
? CS$; : I= P < X) :J = ADR(F$ ( I ) ) :U = USR(MR, J, 
J+EL,K-I-Kl > s F* <I, I+Z)=A* 

FOR I=C TO X+Kl STEP -Kl:P(I)=P(I-Kl)+ 

EL:NEXT I:GOTO 1170 

IF C THEN R $ = "INSERT":GOTO 1070 

R$= " s GOTO 1050 

IF C THEN R$ =,, CHANGE" : GOTO 1080 


R$ = 


ll 


CHANGE 


"* : GOTO 1050 
J = P < X ):GOSUB 210:FS=K0:GOTO 990 
IF C THEN R$="DELETE” :GOTO 1080 
R$= ”ESMMEB" : GOTO 1050 


I=P<X>:U=USR<PK,656,Kl,657,K2>:2 "I DE 
LETE ” ; Ft ( I , I + Z ) ; " : W£ZHM ? I":? *' 

C DEL LINE3CZ3C33 RICCI"; 

R$="NY'' : GOSUB 30: IF R = K 1 THEN 990 
L = LEN(F$)+K1:P(C+Kl)= L :J = P(X +K1) :K = J — I 
:IF K = EL THEN 1320 

? CS$;B Z $ :? :? "ITEMS STILL ASSIGNED - 




CONTINUE 
R=K1 THEN 990 


"::R$="NY":GOSUB 30:IF 
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PH 1320 ? CSt: C = C-K 1 : IF X >C THEN F$ ( I ) = ” " : GOTO 

135 0 

10 1330 U = USR (ML, ADR (F$ (3 ) ) ,ADR(F$(I) ) , L--J > :F$ 

= F$ <K1 , L-K-Kl ) 

ON 1340 FOR I = X TO Cs P U ) =P (I+Kl ) -K: NEXT I : GOS 
UB 130 

OF 1350 E = LEN (F$) /EL-C: J = C>K18s POSITION K20*J, 
C+Kl-K19*Js? #6;BL$(K1,EL+K3);:FS=(C=K 
0):GOTO 990 

DP 1360 IF OKI THEN R$="RENUM " s GOTO 1080 
PL 1370 R<= ,, maninsraalr» » = GOTO 1050 

HN 1380 I = X:R$= H MAKE ":GOSUB 80: IF NOT X OR 
X =I THEN 990 

MA 139 0 ? CS$: P (C + Kl ) =LEN (F$) +K1 : F = P ( I ) : K = P ( I + 
Kl)-F: R = K:D* <MF*K1 1 )="X " 

BL 1400 IF I>X THEN F = P(X):GOTO 1450 

11 1410 L = LEN ( D$ ) : IF L >K THEN L = K 

AC 1420 T = P ( X+Kl ) -L: J = ADR <F* <F) ) : U = USR ( ML , J , AD 

R < D$ > ,L) :U=USR(ML,J+L,J,T-F) :U = USR(ML, 
ADR (D$) , ADR(F$<T) ) , L ) 

BN 1430 K = K-L: IF K THEN 1410 

ND 1440 FOR J=I+K1 TO X:P < J > = P (J+Kl ) -R: NEXT J: 

X = I :GOSUB 130:GOTO 990 
IN 1450 L = LEN ( D$ ) : IF L > K THEN L = K 

KG 14 60 T = P(I+K1)-L:U = USR(ML, ADR(F$(T) ) , ADR ( D$ 

) , L ) :J = ADR(F$IF) ) :U = USR (MR,J, J+L, T — F — K 
1):U=USR(ML,ADR(D$),J,L) 

CF 1470 K = K — L : IF K THEN 1450 

KE 1480 FOR J=I TO X+Kl STEP -K 1 : P < J ) = P < J-K 1 ) «- 

R:NE X T J:GOSUB 130:GOTO 990 
DN 1490 IF C THEN R$="VIEW ":GOTO 1080 
NB 1500 R^= ” CHMSB" : GOTO 1050 

LH 1510 GRAPHICS K0:U = USR(PK,709,K12,710,K6,71 
2,50,703,K4):K = K4:GOSUB 260 
JB 1520 P(C + K1)=LEN(F$)+K1 :L = X:F = P(L) :T = P(L+K1 
):PG=K1:CHNG=K0 

CE 1530 I$ = F$(F,F + Z) :FOR I=EL TO K1 STEP -Kl: I 
F I* (I, I>=" " THEN NEXT I 

MN 1540 I $ = I $ ( K 1 , I) : FOR I=K1 TO L.EN H$ ) : 1$ ( I , I 
)=CHR$ (ASC ( 1$ ( I ) ) t-Ki 28) : NEXT I 
0A 1550 GOSUB 140 

LL 1560 ? CS$; " (QH9 RHWI C6 RHWH8 R3CW3C7 R3 
C E 3 n 

EJ 1570 ? " I CLE X T PG I HDD I gHANGE I gPRT I 

If 

CO 1580 ? " I BAST PG I CADS I EELETE I EG 1 I 

II 

KC 1590 ? " CZ3C8 e* ^ -Mnr fl nr r M C I ai HTM L 6 R3 

C C 3 " ; 
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PP 1600 

CH 1610 

OP 1620 
EJ 1630 
AP 1640 

KK 1650 
SO 1660 
EB 1670 
DA 1680 
OD 1690 
OP 1700 
AJ 17 10 
FP 1720 
FA 1730 


10 1740 
A1 1750 
HH 1760 


BD 1770 
BG 1780 


AH 17 90 

PH 1800 

DL 18 10 

PO 1 820 

ON 1830 
J,1 1840 


NE 1850 

Kl 1860 
01 1870 
EJ 1880 

HJ 1890 
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R$="NLTACDMPS":GOSUB 30:IF <R=3 OR R=7 
) AND CHNG THEN GOSUB 180 

ON R GOTO 1640,1680,960,1700,1910,1950 
,740,1890 

IF T-F>EL THEN 1890 
R*="SEEIi" : GOTO 1930 

IF (T —F) /EL-K 1 >PG * K38 THEN PG = PG + K1:G0 
TO 1550 

? cs$: ? : ? ,, ; 


91 


TO SHOW 


•* ; : GOSUB 50 


FOR I=K1 TO K12 8:NEXT I:GOTO 1560 
IF P G > K1 THEN PG = PG-K1 :GOTO 1550 


* * 


SD" ; :GOTO 1660 


? CS$:? :? 

K = K0: X = K0: IF E = NE THEN 1850 
R$=I $: GOSUB 60 

? CS$;"CQ]C33 RICE]":? "I(33 SPACES]I" 


" C Z ] C 


R] 


RETURN 


FOR OPTIONS 


R] 


CC]":? , " C 3 SPACES]REMAINING ENTRIES: 

";ME-E;"C3 SPACES]"; 

IF R > K 4 THEN GOSUB 80: IF NOT X THEN 1 
560 

J=F+(PG-K1)*K38*EL+X*EL:ON R-K4 GOTO 1 
940,1970 

U=USR<PK,656,Kl,657,K2):? "I ENTER ITE 

M->: C 1 6 SPACES]- l " ; : U = USR ( PK , 702 , K0 

,656,K3,657,28) 

? ME-E;"C3 SPACES]";:U=USR(PK,656,K1,7 
52,K0,657,K19) 

? INPUT #K4, A$:F'OKE 752, Kl:? " 

CZ]" ; : POKE 702,64: IF LEN(A$XEL THEN A 
$(LEN(A$)+K1,EL)=BL$ 

A$=A$(K1,EL):IF A$=BL$(K1,EL> THEM 186 
0 

I=ASC(A$):IF I>96 AND I<123 THEN A$(K1 
,Kl)=CHR$<I-32) 

FS = K0:E = E + K1: X=X+EL:K = K+K1 : I=LEN(F^) +K 
1 :F^ < I )= A^ 

IF I — T THEN J=ADR(F$ (T) ) :U = USR(MR, J, J + 
EL,I-T-Kl):F*(T,T+Z)=A$ 

IF K > K 3 8 THEN GOSUB 60:K = K1 
J = K > K19:POSITION < K < K10) + K 2 0 * J,K-K19*J 
:? #6;STR$ <K) ; ” ";A$; : IF E < ME THEN ON 

<K = K1 AND X >EL) +K1 GOTO 1760 ,1720 

irarsij 


MAXIMUM ITEMS EN 


II 


? CS$:? :? 

" ; : *C=K40-: GOSUB 590 

IF NOT X THEN 1890 

CHNG = K1: IF E< ME THEN ? CS$; 

FOR I=L+K1 TO C:P(I)=P<I)+X:NEXT I:T=T 
+ X 

IF CHNG THEN GOSUB 180 
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FI 1900 
PJ 1910 
GJ 1920 
JI 1930 

G9 1940 

AK 1950 
LK 1960 
GJ 1970 


FM 1980 
EJ 1990 


DF 2000 


HI 2010 
GE 2020 
HH 2030 
PI 2040 
AL 2050 


NP 2060 
BB 2070 
BN 2080 
DH 2090 


GP 2100 

KC 2 1 1 0 
EP 2 120 
JF 2 130 
AD 2 140 


PG 2150 
JF 2 160 
HH 2 1 70 


P6 = K1s GOTO 1550 

IF T — F > E L THEN R$="CHANGE" :GOTO 1720 
R*=" 


CHANG 


ii 


HO ITEMS TO 


n» 


; R*: 


7 CSt;BZt; :? :? , , " 

■" ; :GOTO 1670 

POKE 702,K0:GOSUB 210:POKE 702,64:GOTO 
1560 

IF T-F >EL THEN R*="DELETE":GOTO 1720 
R* = ”[gjOOLO" : GOTO 1930 

U = USR <PK, 656, K1,657, K2) : ? "I DELETE •* ; 
F$ ( J , J + Z ) ; " s EK9 ? l":7 " (DEL LINE} 

CZJ- C33 RMC}"; 

R$= I, NY“ : GOSUB 30: IF R = K 1 THEN 1560 

7 CS$;:I=ADR(F$(J)):U=USR(ML,I+EL,I,LE 
N(F$)+K1-J-EL):FOR I=L+K1 TO C:P(I)=P< 
I)-EL:NEXT I:E=E-K1:FS=K0:T=T—EL 
F$=F*(Kl,LEN(Ft)-EL):GOSUB 150:IF K<K3 

8 THEN J=K>K18:POSITION K20*J,I-K19*J: 
7 #6;BL*<K1,EL+K3); 

GOTO 1560 
IF C THEN 960 
R$= " 


GOSUB 350:GOSUB 490: IF X =155 THEN 740 
POKE 752,K1:POSITION K2,K20:7 " 

CDEL LINE}- C3 SPACES} ; F 

N$ 

GOSUB 580:Ft=”":TRAP 2110:OPEN #K1,K4, 
K0,FNt:E=K0:C=K0:RN$=FN$ 

INPUT #Kl,A*sIF LEN(A$)=K1 THEN C=C+K1 
:P<C)=LEN(Ft>+K1:GOTO 2070 

IF E < ME THEN F$(LEN(F$)+K1 )=At:E=E+K1: 
GOTO 2070 

POSITION K 3,K 21:7 BZ$; "MEMORY FILE TOO 


RET 


";:R$=CHR$(155):GO 


SMALL - ENTER 
SUB 30 

CLOSE #K1:TRAP CLEARsON R GOTO 960,214 
0,960 

E=E—C:IF PEEK(195)=136 THEN 2100 
GOSUB 2940:GOTO 2060 

IF NOT C THEN Rife = » I TTM ■V« ” - Gfl T fl 2040 
R*= ,, nraH3D , ‘ :GOSUB 550: U = USR (P K , 709, K2,7 
10,248,711,116,712,152,703,K4,DL+22,13 
0) 


CNI CO CWI Bh 

T 


PRINTOUT OPTI 


U = ADR ( "HOCCJ CCI C X } 

3>" >:U=USR(PK,512,U,54286,192) 
POSITION K1 1,K 3:7 #K6; ' 

ET3B” : GOSUB 270 

7 # K 6 : 7 # K 6 : 7 #K6;"{3 SPACES} ENTER 
BC3 gQE3S} TO CHANGE OPTION" 
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IH 2180 
GD 2 190 
MC 2200 
KK 2210 
HG 2220 

PD 2230 

PG 2240 


AD 2250 
BN 2260 

CG 2270 
AA 2280 

HN 2290 

GN 2300 
EB 23 10 

IH 2320 
AB 2330 

BE 2340 

HN 2350 
FA 2360 
IG 2370 


DH 2380 
KI 2390 


51 


? #K6;"C3 SPACESCENTER 
FOR MAIN MENU" 

? # K 6; "(3 SPACES}ENTER 
T PRINT" 

? CS$; :U = USR <PK,656,K0,657,K12) 


TER SELECTION 


<3 

n TO STAR 


II 


t II 


R$="1234M":R$(K6)=CHR$(155) : GOSUB 30:7 
CS$;:U=USR(PK,656,K0,657,K5) 

CLOSE # K 1 : 7 CS$:U = USR(PK,656,K0,657,K5 
):ON R GOTO 2240,2250,2270,2290,740,23 
10 

GOSUB 270 :SOUND K0,29,K10,K8:FOR I=K1 
TO K10:NEXT IsSOUND K0,K0,K0,K0:FOR 1= 
Kl TO 100:NEXT I:GOTO 2200 
MODE$ = CHR$ (145 —ASC(MODE$) ) :7 , " 


CHANGED TO 


!•» 


nsm 

; CHR$ (ASC(MODE$) +K128) ; "■ 


";:GOTO 2230 


ENTER NUMBER COLUMNS (1-3) 


»»» 


9 M 

"123456789":GOSUB 30:COL=R 
7 CS$;:POKE 656,K0:POKE 657,K9:7 " 

I” ; CHR$ (COL+176) ; 


UMNS CHANGED TO 


; : R$ = 


CO 


OTO 2230 


II 


ENTER NUMBER PAGES 


(1-9) 


■" ; :R$ 
7 CS$ ; 


ES CHANGED TO 


C3 asEHS) 
"123456789":GOSUB 30:PAGES=R 
POKE 656,K0: POKE 657,K9:7 

CHR$< PAGES + 176) ; 


II 


PR 


it» 


>i 


it 


2 

G 


OTO 2230 

TYPE$ = CHR$< 150-ASC(TYPE*) ) : 7 . _ 

|";CHR$(ASC(TYPE$)+K128) ; 


II 


FOR 


CHANGED TO 


n 


" ; :GOTO 2230 
U=USR(PK,559, 
40:IF RS THEN 
POKE 657,K3:7 


34,657,K3):RS=K1:GOSUB 29 
RS = K0:GOT O 2600 


RERDY PRINTER - ENTER 


; : R*=" 1234M" :R$(K6) =CHR$ ( 15 
5):GOSUB 30:IF R<K6 THEN 2220 
7 CS$; :TRAP 2300:OPEN # K1,K 8,K 0, "P: " 

7 #K1;CHR$(27);"O";:REM ** RELEASE SKI 
P-OVER PERFORATION 

7 #K1;CHR$(27);"8";:REM ** DESELECT PA 
PER OUT DETECTOR 


7 #K1 ; CHR$(K18-K3# (MODE$="C" ) ) ; : REM * * 
SET NORMAL/CONDENSED PRINT 
7 # K 1 ; CHR$ (27) ; "A";CHR$ (K6) ; :REM SET L 
INE SPACING TO 6/72 

POKE 5 5 9, K 0: IF F$ (K1 , K1 ) <CHR$ (K12B) TH 
EN FOR I= K1 TO C: X = P( I ) :Ft (X, X)=CHR$ (A 
SC(F$(X))+ K128):NEXT I 
A$="-" 

D$= " 1 " : D$ ( (EL + K5) *COL) =" " : D$ (K3)=D$ ( 

K 2) : D $ (LEN(D$) ) =" I " 
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FH 2400 
EM 24 1 0 

AJ 2420 

FF 2430 
AJ 2440 

FG 2450 

LE 2460 

LD 2470 

EG 2480 

Kt 2490 

KC 2500 

KA 2510 
BH 2520 
IP 2530 

GP 2540 

AH 2550 

KP 2560 

DN 2570 

FE 2580 

LN 2590 

m 2600 

EE 2610 
LC 2620 
JH 2630 
66 2640 


X=INT((E+C+C0L-K1)/COL):FOR L=K1 TO PA 
GES:GOSUB 310s? #Kl;D$s? #K1;D$ 

IF COL=K1 THEM T=INT((LEN(D$)-K13)/K2) 
+ K1 : D$ <T, T M< 12)="SHOPPIMG LIST”: V #K 1 ; 
D$: D $ < T 5 T+Kl2)= B L $:GOTO 2430 
T=I NT< (LEN(D$)-26) /K2) +K1 :D$(T, T + 25)=” 
C 5 ,3<N3SHOPPING LIST <! 6 , >CT>" s? #K1;D 

$:D$ <T,T + 25)= BL $ 

? #K1;D$:? #Kl;D$:GOSUB 330 

FOR I=K1 TO X:FOR J = K0 TO C0L-K1:K=(I+ 

J *X ) *EL 

R*=" | ,, :R$(K2)=BL$(K1,EL) : R$ (EL+K2) = " I 
C 3 SPACES 3- " s IF K>LEN<F$) THEN 2490 
IF F$(K-Z,K-ZXCHR$ (K128) THEN R«<K2,E 
L+K1)=F$(K-Z,K):GOTO 2490 

I$ = F$ < K — Z,K) : I $ (K1 ,K1 )=CHR$ <ASC(I$)-K1 
28):FOR T=EL TO K1 STEP -KlsIF I$(T,T) 
= " M THEN NEXT T 

I$=I $< K1,T) :F=I NT( (EL + K6-T) /K2)+KlsR*( 
EL+K2,EL + K2)= " ":R$ (F,F + T-Kl)=I*sR$ (K2 

,K3)= n U":R$ (EL+K4 > = ” * * " 

? #K1 ; R$; : NEXT Js? #K 1 ; 11 I ” s GOSUB 330:N 
EXT I:D$(K2,K7)="NOTES: ":? #K1;D*:D« <K 
2,K7)=BL$ 

FOR I=K1 TO K9 s ? #Kl;D$sNEXT I :GOSUB 3 
1 0 


? # K 1 ;CHR$ ( K12) : REM HOME PAPER 
IF TYPE$="C" OR L=PAGES THEN 2550 
POKE 559, 34: U = USR<PK, 656, K0,657 , K3> s ? 


II 


READY PRINTER - DEPRESS 1 RETURN 


•i . 


) :GOSUB 30: I 


R«="1234M"sR$<K6)=CHR$ ( 1 
F R< K6 THEN 2220 

POKE 559, K 0 s NEXT LsIF TYPE$= ,, S" THEN 2 
590 

? #K1;CHR$(27);“N";CHR$(K6);:REM ** SE 
T SKIP-OVER PERFORATION 6 LINES 
? #K1;CHR$<27);"9";:REM SELECT PAPER O 
UT DETECTOR 

? #K1 ; CHRt (27) ; ,, 2" : REM SET NORMAL LINE 
SPACING 

CLOSE #K1STRAP CLEAR 

IF F$(K1,K1)>CHR*(K128) THEN FOR I=K1 
TO C:X = P(I):F$(X,X)=CHR$ (ASC(F$ < X) ) -K1 
28):NEXT I 

GRAPHICS K 2: POKE 559,34:GOTO 740 
IF NOT FS THEN 880 
RS^ Tg^r- ” : GOTO 2040 

OV = K0sR$="ESSE":GOSUB 350: IF RN$=" " TH 
EN 2660 
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JI 2650 


LI 2660 


BS 2670 
AK 2680 

JB 2690 

FK 2700 
AN 2 7 1 0 


BO 2720 

PN 2730 

BK 2740 
KC 2750 
AC 2760 
HJ 2770 


OL 2780 
LK 2790 
FH 2800 
LB 28 10 


NF 2820 

FI 2830 
GC 2840 
IL 2850 
LA 2860 
GF 2870 

II 2880 
HB 2890 

BN 2900 

JE 29 1 0 
KB 2 9 20 
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II 


POSITION K 4, K 2 0: ? "OK TO SAVE M ;RN$; 
■QECS" ; : R$="NY" : GOSUB 30: IF R = K2 THEN 
FN$=RN$:OV=Kl:GOTO 2700 
POSITION K2,K20:POKE 752,K0S? #K4;" 

C DEL LINE! ENTER OR ■CMH 

:";:INPUT #K4,I*:P0KE 752,Kl:? 

IF I<^i= ,,,, THEN 740 

IF LEN(I$) >KB OR I $ (K1 ,K1)<"A" OR I* (K 
1,K1)>"Z" THEN ? BZ$;:GOTO 2660 
FN$="D1:":FN$(K4)=I$:FN$(LEN(FN$)+K1)= 
■' . SHP " 

X=K0:TRAP 2830:OPEN #K1,K6,K0,FN* 

TRAP 2830:INPUT #K1,A$:TRAP CLEAR:IF L 
EN(A$)=K17 THEN X = X+VAL (A$ <K15> ) :GOTO 
2710 

X = X+ VAL (A$ (Kl ,K 3) ) :CLOSE #K1: IF X>INT( 
<C*2+E* (EL + K1 > +K1+124) /125) THEN 2760 


POSITION K2 
ENT ROOM ON 
GET # K 5,A N S 
GOTO 740 
IF O V = K1 OR 
POSITION K2 


K20s? "(DEL LINE!INSUFFICI 
DISK - HIT "RET'- ";BZ$; 

IF ANS< >15 5 THEN 2740 


780 


M ; FN$ ; 

36, #K 1 ,K0,K0,F 
2840:OPEN #K1, 


X=VAL(A$(Kl,K3)) THEN 
K 2 0:? "(DEL LINE! 

C6 SPACESI OVERWRITE " ; I $ ; " : :R» = 

"NY*': GOSUB 30: IF R = K1 THEN 2660 
POSITION K2,K20: ? "(DEL LINE! 

C4 SPACES! 

GOSUB 580:TRAP 2800:XIO 
N$ 

P(C + Kl)=LEN(Ft) + K1:TRAP 
K8,K0,FN$ 

FOR I=K1 TO C:? #K1;CHR$(I):FOR J=P(I) 
TO P(I+K1)-EL STEP EL:? #K1;F«<J„J+Z) 
:NE X T J:NEXT I 

CLOSE #K1:TRAP CLEAR:XIO 35,#K1 
FN$:F S=K1 :RN$ = FN$:GOTO 740 
GOSUB 2940:GOTO 2700 
GOSUB 2940:GOTO 2790 
R$ = 


33S" : GOSUB 350 
GOSUB 490:IF X=155 THEN 740 
POSITION K 3,K 2 0:? "OK TO DELETE 
' ; :R$="NY" 

30:IF R=K1 THEN 2860 


K 0, K0, 


II 


II 


FN$ ; 


II 


V^N 


GOSUB 
POSITION K 2, K20: ? 
C4 SPACES!■ESaSOH 


11 {DEL LINE! 


" *, FN$; 


GOSUB 580: TRAP 2930: XIO 36,#K1 , K0,K0,F 
N $: XIO 33,#K1 ,K0, K0, FN$: TRAP CLEAR 
IF FN$=RN$ THEN FS=K0 
GOTO 740 
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FL 2930 
MM 2940 


ME 2950 


GOSU 
CLOS 
" ; P 


B 2940:GOTO 2900 

E # K 1:POSITION K3,K21:? BZ*;"ERROR 
EEK(195):" ENCOUNTERED - RETRY 


II 


I=R:R$="NY" 
” C DEL L 


I NE} •’ ; 


G03UB 
I F 


30:POSITION K2,K2 
R = K2 THEN R =I : R S = 


1 : ? 

K 0 : 



RETURN 







BE 2960 

I F RS 

THEN RETURN 




HP 297 0 

POP s 

GOTO 

7 40 





AH 5 000 

DATA 

104 , 

1 04 

, 1 33 

<1 

2 1 7 

, 10 4 

, 133,216 

EF 50 1 0 

DATA 

10 4, 

1 33 

, 209 

* 

1 0 4 

, 1 33 

,208,169 

EF 5020 

DATA 

0 , 1 3 

t n 

^ 

13,1 

\ 

T —> 

9 ■* L - 

07,162,1 

m 5030 

DATA 

1 65 , 

2 1 6 

, 133 

* 

2 1 4 

,165 

,217,133 

m 5040 

DATA 

215, 

24, 

165, 

2 

14, 

133, 

212,101 

BC 5050 

DATA 

205, 

1 33 

,214 


165 

,215 

,133,213 

KO 5060 

DATA 

105, 

0, 1 

33,2 

1 

5, 164,2 

03, 165 

OD 5070 

DATA 

206, 

240 

, 10, 

177, 

2 14, 

209,212 

JA 5080 

DATA 

144, 

44, 

240, 

1 

2,176,19,177 

HH 5090 

DATA 

214, 

209 

,212 

9 

1 44 

,13, 

240,2 

OC 5100 

DATA 

176, 

30 , 

200, 

196, 

204, 

240,227 

IE 51 10 

DATA 

176, 

23, 

144, 

223, 

169, 

1,133 

PA 51 20 

DATA 

218, 

164 

, 205 


1 36 

, 177 

,214,72 

BE 5130 

DATA 

177, 

212 

, 145 

9 

214 

, 104 

,145,212 

El 5140 

DATA 

192, 

0,2 

08,2 

4 1,232,224,0 

LH 5150 

DATA 

208, 

2,2 

30,207,228,2 

08,208 

DA 5160 

DATA 

172, 

165 

, 209 

9 

197 

, 207 

,208,166 

IL 51 70 

DATA 

165, 

218 

, 201 

9 

0,2 

08,144,96 

AM 5180 

DATA 

104, 

104 

, 133 

9 

2 15 

, 104 

,133,214 

BB 5190 

DATA 

104 , 

133 

,217 

9 

104 

, 1 33 

,216,104 

KO 5200 

DATA 

133, 

218 

, 1 04 

9 

170 

, 1 60 

,0, 177 

KJ 5210 

DATA 

214, 

145 

,216 

9 

200 

, 208 

, 4,230 

BK 5220 

DATA 

215, 

230 

,217 

9 

202 

, 208 

,242,198 

H6 5230 

DATA 

218, 

16, 

238, 

96 



BB 5240 

DATA 

104, 

104 

, 133 

4 

255 

, 104 

,133,254 

AO 5250 

DATA 

104, 

1 33 

, 253 

9 

1 04 

, 133 

,252,104 

OK 5260 

DATA 

170, 

24, 

101 , 

X- 

55, 

133, 

255,138 

OH 5270 

DATA 

24,101, 

253, 

1 33, 

253, 

104,168 

DA 5280 

DATA 

177, 

254 

, 145 

9 

252 

, 136 

,192,255 

DH 5290 

DATA 

208, 

247 

, 198 

9 

253 

, 198 

, 255,202 

GM 5300 

DATA 

224, 

255 

, 208 

9 

238 

,96 


HG 5310 

DATA 

104, 

74 , 

170, 

1 60 , 

0,104,133 

KO 5320 

DATA 

255, 

104 

, 133 

9 

254 

, 104 

, 240,4 

BI 5330 

DATA 

200, 

145 

, 254 

9 

1 36 

, 104 

,145,254 

KD 5340 

DATA 

202, 

208 

, 237 

9 

96 
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Coupon File 

Stan Silverman 


"Coupon File" is a practical coupon-sorting program, It 
might even help you save some money. Requires at least 
32K and a disk drive. 

"That's the most ridiculous thing I've ever heard," she said. 

"A computer program to keep track of store coupons? You 
remember the hours we spent trying to use the computer to 
balance our checkbook, don't you? And you expect me to 
think that this will be different?" 

I flinched. She did conjure up images of those endless 
sessions in front of the screen, with the incessant whirring of 
the disk drive in the background, as we tried to use the com¬ 
puter for a task better done with pencil, paper, and calculator. 

But "Coupon File" is different. It is a practical coupon¬ 
sorting program, with features that make it extremely useful, 
and we've found it to be a valuable money-saving tool. 

Program Requirements 

Coupon File requires at least 32K of memory and one disk 
drive. That gives it a maximum capacity of 400 coupons. In a 
40K (or 48K) system, the capacity is 600 coupons. The pro¬ 
gram checks the size of installed memory and adjusts for it 
accordingly. 

Before using the program, you will have to write a ref¬ 
erence number on each of your coupons. That lets you iden¬ 
tify the coupons when you want to take them to the store. 

The number has no meaning to the program, but it does check 
to make sure that you don't try to use a number more than 
once. The allowable range of reference numbers allowed is 
0-9999, so you should be able to use the program for many 
years without worrying about running out of numbers. 

Data Entry 

Every time the program needs information from you, it will 
display a rectangle into which your keyboard response will go. 
You will be able to see how much space remains for your use 
in each information field. The information fields that you will 
use are described below. 

Reference Number. Up to four numerals will be accepted. If 
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you don't want to enter all four digits, press RETURN to end 
the entry. 

Description. Up to 17 characters of any kind will be ac¬ 
cepted. Use RETURN to terminate descriptions less than 17 
characters. 

Amount. Up to four characters, including the decimal 
point (period) will be accepted. Press RETURN to complete 
entries of less than four characters. 

Dates. These entries are in the form of MM/DD/YY. All 
six numerals must be entered. It is not necessary to enter the 
slashes, as the computer will place them in the rectangle for 
you. 

After you have completed each field, you can verify that 
the displayed information is correct by typing a Y. If you 
made an error, entering N will clear out the rectangle and let 
you reenter the information. 

The Menu 

After the program has been initialized and all of the coupon 
data has been loaded from disk, the program will display the 
number of coupons that is on file and the highest reference 
number in use. Next, the menu will be displayed. The pro¬ 
gram will return to this menu at the end of every operation. 
You may return to the menu at any time by pressing the ESC 
(Escape) key. You don't have to worry about confusing the 
program if you abort an operation with the ESC key. The pro¬ 
gram performs its operation only upon receiving a final 
verification from you and will not be left in limbo if you 
change your mind about what you are doing. 

The menu will give you these choices: 

1 Add Coupon 

2 Delete Coupon 

3 Sort by Date 

4 Sort by Description 

5 List All Coupons 

6 List Expired Coupons 

7 List by Date Range 

8 List by Description Range 

9 End Session 

Press the number corresponding to the choice you want. 


183 



Chapter 4 


Add Coupon. You will be asked to enter a reference num¬ 
ber, which will be checked to make sure that a coupon of the 
same number has not been filed before. Next, you will be 
asked to enter the description, the amount that the coupon is 
worth, and its expiration date. If the coupon does not have an 
expiration date, simply enter a date like 12/31/99 to indicate 
unlimited validity. After all of the information has been en¬ 
tered, a facsimile of the coupon is displayed for final verifica¬ 
tion. If you wish, you can reject the coupon at that point and 
create a new one. 

Delete Coupon. You will be asked to enter the reference 
number of the coupon you wish deleted. If there is no coupon 
on file with that reference number, you will be notified of that 
fact. If the coupon is in the file, a facsimile of it will be dis¬ 
played. You will be asked for verification before it is deleted 
from the file. 

Sort by Date. This operation (as well as Sort by Descrip¬ 
tion) is included to make for more useful coupon listings. It is 
not required. No other operation is dependent upon the cou¬ 
pons being sorted, and the program will give you all the infor¬ 
mation you ask of it whether or not the date is sorted. 

Unfortunately, the sorts are slow. Sorting 300 coupons 
can take a half-hour. An onscreen notice will inform you that 
the screen will go dark during sorts. This is done to improve 
the sort speed. To wake you up, the built-in speaker will 
sound at the completion of the sort. 

Sort by Description. Of the two sorts, this one is probably 
the most useful. 

List All Coupons. The file of coupons will be listed to the 
screen in the order in which you entered them, unless you 
have subsequently sorted them. When the screen is filled, you 
can either continue the listing or return to the menu. 

List Expired Coupons. You will be asked to enter the cur¬ 
rent date. The program will then list all expired coupons 
(those with earlier expiration dates) on the screen. Make a 
note of their reference numbers if you wish to delete them 
later. 

List by Date Range. You will be asked to enter a starting 
date and then an ending date. The program will list all cou¬ 
pons whose dates fall within that range. 

List by Description Range. You will be asked to enter a 
starting description and an ending description. The program 
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will list all coupons whose descriptions fall within that range. 
For example, if you want to list all coupons whose descrip¬ 
tions begin with C, you should enter C as the starting descrip¬ 
tion and D as the ending description. Similarly, if you want to 
list all coupons whose descriptions begin with CEREAL, enter 
CEREAL as the starting description and CEREALA as the end¬ 
ing description. Play with this feature for a few minutes and 
you will quickly learn how to use it. 

End Session. If you have made any additions or deletions 
to the file or if you have sorted the coupons during the ses¬ 
sion, the disk will be updated to reflect these changes. You 
will be asked not to turn off the computer until the disk has 
stopped. No disk operation will occur if you have only listed 
coupons to the screen. 

File initialization 

The first time you use Coupon File, it will create a data file 
containing one dummy coupon. You may delete this coupon 
anytime after you have added one of your own. The program 
needs at least one coupon in the file in order to operate 
properly. 

Typing the Program 

In order to provide memory space for as many coupons as 
possible, several memory-saving techniques are used to reduce 
the amount of memory required by the program itself. Tech¬ 
niques include the use of strings to store most of the numeric 
information, the use of variables for frequently used constants 
and line numbers, and the use of multiple-statement lines. 

To get the most from multiple-statement lines, the 
abbreviations for BASIC's reserved words are often used to 
pack instructions into the three physical lines allowed for a 
logical program line. This means that as you type in the program 
you may have to use abbreviations for the BASIC keywords as 
well as eliminating spaces wherever possible. For example, if you 
were to see a statement like this 

300 FOR 1 = 1 TO 1000:NEXT IrRETURN 

you would type the following: 

300F.I = K1TOK1000:N.I:RET. 

Obviously, for a short line such as this, it would not be nec¬ 
essary to use abbreviations. For longer lines, however. 
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abbreviations can make a significant difference. Using abbrevi¬ 
ations will cause us to have to sacrifice the advantages of 
using "The Automatic Proofreader." The checksums for lines 
with abbreviations will not match up. If you use the technique 
described in the Automatic Proofreader article for lines with 
abbreviations, with program lines of more than three physical 
lines, you run the risk of losing the ends of the program lines. 


Coupon 

For error-free program entry , read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

FE 1 READ 0,K1,K2,K3,K4, K5, K6, K 7 , K 8 „ K 1 1 , K 1 4 , K 1 
7,K27,K78,K89,K100,K1000,K10000:OPEN #K1, 
K4,0,"K:":GOSUB K10000:GOTO K10000*K2 
OG 2 FOR 1=0 TO ICOUNT-K1 : FOR J=I TO IC0UNT-K1 

:DESBUF$=DES$(VREF<I)*K17+K1):IN$=DES$(VR 
EF (J) *K17+K1 ) 

KI 3 IF IN*<DESBUF$ THEN A = VREF < I ) : VREF ( I > =VRE 
F < J) s VREF < J )=A 
LH 4 NEXT J:NEXT I s GOTO 4010 

016 FOR 1=0 TO ICOUNT-K1 : FOR J=I TO ICOUNT-K1 

:DBUF$ = DAT$<VREF( I) *K6+K1 ) s IN$ = DAT $ (VREF( 
J)*K6+K1) 

BE 7 IF IN$<DBUF$ THEN A = VREF < I ) : VREF < I ) =VREF ( 
J) s VREF(J)=A 

LL 8 NEXT J : NEXT I : GOTO 4010 

NF 1 1 FOR J = 0 TO I COUNT-K 1 : IF V AL < I N$ ) = REF < J ) 

THEN 10470 
AG 12 NEXT J s RETURN 

FL 27 POSITION I-K2,K8:7 " ■■C0T ■■" : POSITION I- 

K2, K6s ? : RETURN 

DK 100 POKE K78+K4, K6: GOSUB K10000:? 

" ; M1 $ : ? *’2 ";M2$:? "3 Sort 

? "4 Sort by Description" 

AI110 ? ”5 List All Coupons":? "6 

red Coupons":? "7 ";M7*:? "8 


. o 

m 

by 


: ? "1 
Date" : 


List E>; p i 
" ;M8$ : ? 


DB 120 
KD 130 

EH 140 


BI 200 
BH 20 1 

HJ 202 


"9 End Session":POSITION K7+K6,K8+K8 
o •« 


PLEftSE CHOOS 


GET #K1,A:A=A-K6*K8:IF A<K1 OR A>KB+K1 
THEN 130 

GOSUB K1000 0:POKE K78 + K4,K2:ON A GOTO K 
1000,K2*K1000,K3*K1000,K4*K1000,K5*K100 
0,K6*K1000,K7IK 1000,K8*K1000,9000 
IN$="":FOR 1 = I START TO K5*K4 
GOSUB K27:POSITION K11+K7,K1:GET #K1,A: 
? A-A;"(BACK SIO":IF A=126 THEN 10230 
IF A=155 THEN FOR L=I TO K5*K4:IN$<L-IS 
TART + K1 ) = " " : NEXT L-.GOTO 210 
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JK 203 
Oft 204 

NL 205 


A = 47 O 


KI 


n "~> 


0 


IF A = K 2 7 THEN GOTO K100 
IF RFLAG THEN IF A<46 OR A>57 OR 
R (RFLAG=K1 AND A = 46) THEN 201 
POSITION I,K7:? CHR$(A):IN$(I-ISTART+K1 
)=CHR$(A):NEXT I 
CA210 GOSUB 10020s RETURN 

DBUF$="":FOR I=K11+K2 TO K5*K4:G0SUB Kl 
0000+K100:NEXT I:GOSUB 10020:RETURN 
DESBUF$ = DES$ (UK17 + K1) : IF DESBUF$ > = LODE 
S$ AND DESBUF$<=IN$ THEN 5100 
JI 4 1 0 GOTO 5050 

POSITION K14, K 2: ? Ml$:GOSUB 10400:GOSU 
B K10000+K1000:GOSUB Kl1:A=ICOUNT:REF( 
A)=VAL(IN$):VREF(A)=A:GOSUB 10040 
GOSUB 1300 s POSITION K6,K11:? n 
13 S P A C E S I- JI sIg ' JnTflr ” : 

GOSUB K100*K2 

KJ 1060 GET #K 1 , A: IF A = K78 THEN 1050 
IF A = K2 7 THEN GOTO K100 
IF AOK89 THEN 1060 
FF 109 0 DES$(IC0UNTtK17+Kl )=IN$:GOSUB 10040:PO 
SITION K2, K6: ? (K6) ; BL % (K5*K3) : ? B$ ( 

K6) ; "MB*" ; Bt (K14) :? B$(K6) ;BL$(K5»K3) 

CB 1 100 RFLAG = K2: POSITION K8 + K1 , Kl 1 : ? 


GB 400 


HI 1000 


CJ 1050 


NB 1065 
HE 1070 


II 


SUB 

EH 1110 GET 


TTrnnTK.S C 4 SPACES}": ISTART = K17:G0 
K100*K2 

#K1 j, A: IF A = K78 THEN POSITION K17,K 
"C4 SPACES}”:GOSUB 10040:GOTO K100 


7 : ? 
tKll 

IF A = K 2 7 THEM GOTO K100 
IF AOK89 THEN 1110 
GJ 1140 RFLAG = 0: AMT$ (ICOUNT*K4 + Kl )=IN$ 

FH 1150 GOSUB 10040: GOSUB 1 0030 : POS I T I ON K6,K1 


UN 1115 
LH 1120 


1 : ? 
UB 


it 


Please Enter 


x ration Dat 


: GOS 


2 20 

EB 1160 GET #K1, As IF A = K7S THEN GOSUB 10030:GO 


SUB 10040:GOTO 1150 
IF A = K 2 7 THEN GOTO K100 


NC 1 1 65 

KG 1170 IF AOK89 THEN 1160 

LG 1180 L = I COUNT : DAT$ ( L * K 6 + !< 1 ) = DBUF$ (K4+K1 ) : DA 

T$ (L*K6 + K3)=DBUF$ (Kl,K4) : POSITION K7 + K 
7,K2: ? M1 $: GOSUB 10300 

CC 1190 GET #K1,A: IF A = K78 THEN GOSUB K10000:G 
OTO K1000 

MK 1200 IF A = K 8 9 THEN I COUNT= I COUNT + K 1 : D I SKFL A 

G=K1:GOTO K100 

m 1205 IF A = K 2 7 THEN GOTO K100 

HI 1210 GOTO 1190 

OA 1300 GOSUB 1 0040 : RFC AG = 0 : POS I T I ON K2,K6:7 B 

s ? BLS$;B$;BLS$:? BL$: ISTART = K4:RETU 
RN 
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OH 2000 


OG 20 10 
HC 2020 

MK 2030 
LP 2040 
JA 2042 

FF 2045 
NK 2 050 


HC 2060 
EL 2070 


DL 2080 

JP 2090 

PL 3000 
Mil 3100 


EK 3 1 1 0 

AE 3120 
PI 4000 
KC 4 0 1 0 

DO 5000 
IG 5010 

LP 5020 
PP 5030 


AL 5050 
AP 5 100 


IM 51 10 


POSITION K7+K6,K 2 :? M2$:G0SUB 10400:00 
SUB K10000+K1000:FOR L=0 TO ICOUNT-K1: 
IF VAL ( IN$) <>REF(L) THEN NEXT L:GOTO 1 
0500 

GOSUB 10040:GOSUB 10300 

GET #K1,A:IF A=K78 THEN GOSUB K10000:G 
OTO K2*K1000 
IF A = K 27 THEN GOTO K100 
IF AOK89 THEN 2020 
POSITION K 6 + K 7 , K 7 : ? " * 

IT ION K11,K17:? B* 

IF L =I COUNT — K1 THEN 2060 


* H : POS 


DES* 

( 

L 

* 

K 

1 

7 + 

K 1 ) =DE 

S 

* 

( 

L 

% 

K 

1 

7 


K 

1 

1 

+ 

K 

7 

) 

• 

m 

D 

AT 

* 

< L * K 

6 

+ 

K 

1 

) 

= D 

AT* (L* 

K 

6 

+ 

K 

7 

) 

• 

■ 

AM 

T 

* 

( 

L 

* 

K 

4 

+ 

K 

1 ) 

= 

AMT* 

< 

L 

* 

K 

4 

+K 

5) 





















FOR 

J 

= 

L 


T 

0 

I COUNT 

— 

K 

9 

■ 

m 

R 

E 

F 

( 

J 

) 

= 

R 

EF 

( 

J 

4 - 

K 

1 ) 

• 

m 

NEXT 


J 


























FOR 

J 

— 

0 


T 

0 

I COUNT 

— 

K 

1 

m 

m 

I 

F 


V 

R 

E 

F 

( 

J 

) 


L 


T 

HE 

N 

FOR 


K 

= 

J 


TO 

I COUN 

T 

— 

K 

•"> 

j- 

■ 

m 

VR 

E 

F 

( 

K 

) 

— 

V 

R 

E 

F 

( 

K + 

K 


1>:NEXT K 

NEXT J:FOR J=0 TO ICOUNT-K2:IF VREF(J) 
>L THEN VREF <J)=VREF(J) -K1 

NEXT J :ICOUNT=ICOUNT-K1:DISKFLAG=K1:GO 
TO K100 

GOSUB 3100:GOTO K6 

POSITION K 3,KB:? "NOTE: Screen is dark 
during Sorts":POSITION K8+K1,K4:? "Pr 
ess 85 to begin Sort” 


GET #K1,A:IF A=K89 THEN POKE 559,0:RET 
URN 

POP :GOTO K100 
GOSUB 3100:GOTO K2 

DISKF LAG = K1 :POKE K1 1*K7 ? 0:? "(BELL)":P 

OKE 559,K27+K7:GOTO K100 
PRFLAG=K5 

GOSUB 10050:FOR K = 0 TO I COUNT-K1 : I=VRE 
F(K):DBUF$=DAT$<ItK6+K1) 

IF PRFLAG=K8 THEN GOTO K100*K4 
IF PRFLAG=K5 OR <PRFLAG=K6 AND NOW*>DB 
UF$) OR (PRFLAG=K7 AND (DBUF$>=LODA$ A 
ND DBUF$<=HIDA$)) THEN 5100 
NEXT K:GOSUB 10060:GOSUB 10075:GOTO K1 

00 

POSITION K 2,J : ? REF ( I) :POSITI ON K7,J: ? 

DES* (I* K 1 7 + K 1 , IIK17+K17) :POSITION K27 
-K2, J 

? DBUF * <K3,K4) DBUF *<K5) ; "/”;DBUF * 

<K1,K2) ; " ";AMT$(I*K4+K1, I*K4+K4) : J = J + 

K 1 
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IN 5120 

HH 5 130 
FF 6000 


«J 6010 

HE 6020 
A6 6030 

SP 7000 


DC 7010 

HO 7020 
HH 7030 
DB 7040 
FH 7050 

EL 7060 

ND 7070 


IF J=K27—K6 THEN 
000:GOSUB 10050 
GOTO 5050 
PRFLAG=K6:GOSUB 


P l ease Enter- 


GOSUB 10070:GOSUB K10 


1 0030:POSITI ON 


Toda 


KB,K11: 
GOSUB 22 


0 

GET # 
OTO K 
IF A< 
NOW$ = 
0000 : 
POSIT 
TION 


*n 


LflE_ 

GET # 
SUB 1 
IF A = 
I F A < 
LODA$ 
GOSUB 
1 : ? 
GET # 
SUB 1 
IF A = 


Kl,A: IF 
6 * K 1 000 

> K 8 9 TH 
DBUF* (K 
GOTO 50 
ION K 1 1 
K7, Kl 1 : 
: GOSUB 
K 1 , A : IF 
0040: GO 
K27 THE 

> K89 TH 
= DBUF$ ( 

10030: 

j 

Kl,A: IF 
0040 : GO 
K27 THE 


A = K 7 8 THEN GOSUB K10000:G 
EN 6010 

5):NOW*(K3)=DBUF$:GOSUB Kl 
10 

,K2:? M7$:GOSUB 10030:POSI 

o 


M 


Please Enter Beginnin 


220 

GOSUB 


10160:GOSUB 
A = K 7 8 THEN 
TO K7*K1000 
N GOTO K100 
EN 7010 

K5>:LODA$(K3)=DBUF$ 
GOSUB 10040:POSITION 
:C3 SPACES) H : GOSUB 


1 0030:GO 


20, Kl 
220 


A = K 7 8 THEN 
TO 7050 
N GOTO K10 0 


GOSUB 10030:GO 


NB 7080 
AG 7090 

AP 8000 


NH 8010 
HP 8020 
HJ 8030 
FP 8040 
OD 8050 

LH 8060 
NE 8070 
ND 8080 
HH 8090 
HC 9000 
OF 9005 


KJ 90 10 


GE 90 1 5 


IF AOK89 THEN 7060 

HIDA$=DBUF$(K5):HIDA$(K3)=DBUF$:PRFLAG 
=K7:GOSUB K10000:GOTO 5010 

POSITION K 7,K 2: ? M8$:GOSUB 1300:POSITI 


Please Enter startin 




Endi 


ON K 2,K11:? 
manAMar ": gosub Ki00tK2 

GET #K1,A:IF A=K78 THEN GOTO K8*K1000 
IF A = K 2 7 THEN GOTO K100 
IF AOK89 THEN 8010 
LODES$=IN$ 

GOSUB 1300:POSITION K11+K4,K11 

"5 GOSUB K 1 00*K2 
GET # K1 ,A: IF A = K78 THEN 8050 
IF A = K 2 7 THEN GOTO K100 
IF AOK89 THEN 8060 

PRFLAG=K8:GOSUB K10000:GOTO 5010 
CLOSE #K1:IF DISKFLAG=0 THEN 9020 
? :? :? "Please wait until Disk Drive 


stops":? "before turning the system of 
f.":OPEN #K2,KB,O,"D:DAT":? #K2;ICOUNT 
FOR J=0 TO ICOUNT-K1:I= VREF<J):? #K2;R 

EF ( I ) : ? #K2;DES$<I*K17 + K1, UK17+K17) :? 

#K2;DAT$(I*K6+K1,I*K6+K6) 

? #K2;AMT$(I*K4+K1,I*K4+K4):NEXT J 
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HE 9020 CLOSE #K2: GRAPHICS 0:CLR :? :? :? "It’ 

s O.K. to shut down now. 11 : END 
HM 10000 GRAPHICS 0:POKE K8 + K8 , KB * K8 : POKE 5377 
4,K 8 * K8:POKE 709,K7*K4:POKE 710,K11+K 
7:POKE 752,Kl:POKE 712,K7+K11:POSITIO 
N K 1 4 , K 1 

? "COUPON FILE”:RETURN 
POSITION K 6 * K 4,K 7:? COR$:RETURN 
KB 10030 POSITION K 1 1 , K6: ? BL* <K8 + K2) :POSITI ON 

K1 1,K 7:? BLS* ;D*;BLS$ :POSITION K11,K 
8:7 BL$ ( K8 + K2 ): RETURN 
AL 10040 POSITION K6*K4,K7:7 Bt (K4 ): RETURN 
J = K4 : ? :? " rmrai CBT 13 


ID 10010 
NL 10020 


JP 10050 


Descri 


EEC 3 3333333 CB: 


13- 


II 


RETUR 


HD 10060 

HA 10070 
AB 10075 


N 

POSITION K 6 + K 7 ,J s ? 
RETURN 
GOSUB 10160 
POSITION K6,Kl1*K2 
to Continue” 


* End Of List * 


o 


"Press 



GH 10080 
AD 10085 
CH 10090 
IE 10100 
FF 10105 

PO 10107 
HP 10 110 
EC 10120 

CA 10130 
00 10135 
HN 10140 

II 10150 

JE 10160 
JG 10230 

0J 10240 
CH 10250 
AJ 10300 

LP 10305 


PB 10310 


GET #K1,A:IF A=K8*K4 THEN RETURN 
IF A = K 2 7 THEN GOTO K100 
GOTO 10080 

IF I=K11+K4 OR I= K1 1+K7 THEN I = I+K1 
GOSUB K27:GET #K1,A:IF A=126 THEN 101 
30 

IF A = K 2 7 THEN GOTO K100 

IF A < K 8 * K 6 OR A>57 THEN 10105 

POSITION I,K7:? CHR$(A):DBUF$(LEN(DBU 

F$)+K1)=CHR$(A):RETURN 

IF I=K11+K2 THEN I=I-K1:RETURN 

IF I= K14 THEN DBUF$=" ”:GOTO 10150 

DBUF$ = DBUF$ (Kl ,LEN (DBUF$) — K1) : IF I=K8 

+ KS OR I= K1 1+K8 THEN I = I-K1 

I=I-K1:POSITION I,K7s? ” ":GOTO K1000 

0 + K100 

POSIT ION K6,K27-K4: ? MESC$; :RETURN 
IF LEN(IN$XK2 THEN IN$= n " : I = ISTART: G 
OTO 10250 

I = I — K1s IN$=IM$ (Kl , LEN (IN$) -Kl ) 
POSITION I,K7:? ” ”:GOTO 201 

GOSUB K10000:POKE K78 + K4,K 7:POSITION 
K7 , K6 

? "{QIC23 R}{E}":? MT$:? "I 
{ 6 SPACESIRef . 4t ” ; REF < L ) : POS I T I ON K2 
7 +K4,K8:? ”1 ” 

? MT$:? "I";DES$(L*K17+K1,L*K17+K17); 
" *" ; AMT$ (L*K4 + K1 ,L*K4 + K4) ; " I “ :? MT$ : 
A=L*K6+K6 
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GG 10320 

NL 10 3 3 0 


IP 10400 


PN 10410 


PA 10420 

PO 10440 
CG 10450 
NL 10460 
CO 10470 


LH 10500 

IP 1 1 000 
DL 20000 

SC 200 1 0 

IL 20020 

m 20030 

IK 20050 

m 20060 

EG 20070 


II 


7 " 1 (3 SPACES!Ex pi res 

2) ; "/“;DAT $<A-Kl,A) ; "/ " 
4);"C4 SPACES!I" 




* 

if 


T Z ! T 2 3 R ! C C ! " 
K11+K2, K 1 7 : 7 


; DAT* < A-K3, A-K 
;DAT*<A-K5,A-K 

MT* 

POKE K78 + K4,K2:P O SIT 
COR*:GOSUB 10160:RET 


I ON 
URN 

POSITI ON K1 1+K4,K6: 7 BL* < K14) : POSITIO 
N K11+K4,K7:7 BLS*;B*<K14);BLS*:POSIT 
ION Kll+K4,KSs? BL*(K14) 

POSITION K 2,Kill? "C4 SPACES! 

rS " : GOSUB 10160: 


nter Reference NiMbe 


ISTART=K17:RFLAG=K1:GOSUB K100*K2 
GET #K1,A:IF A=K78 THEN GOSUB 10040:G 
OTO 10400 

IF A = K 2 7 THEN GOTO K100 
IF AOK89 THEN 10420 
RETURN 

GOSUB 10040:POSITION K2,K11:7 


i> 


THIS 


EFEREHCE NUMBER HHrS BEEN USE 


TO K10000/K27:NEXT J:POP 


l II 


O 
0 

GOSUB 


•2" : FOR J = 
: GOTO K100 


10040:POSITI ON 


• I 


THIS 


UMBER IS NOT IN THE FIL 


TO 


II 


K6,K11:7 

' :FOR 1=0 

K10000/K27:NEXT I:GOTO K2tK1000 
POSITION K6*K4,K7:7 "Please Wait. 
RETURN 

DIM DESBUF*(K17) , LODES* (K17) ,MT* (K5»K 
5) , IN* <K17) :C = P E E K(K100 + K6) *K5*K5/K4- 
K4*K100 

DIM REF(C-Kl),VREF(C-Kl),DES*(C*K17), 
DAT*(C*K6) ,AMT* (C * K 4) ,BL*(K17 + K4) ,BLS 
* < K 2) , D * (K 8) ,COR* (K14) ,DBUF$ (K6) 

DIM B*(K17) ,NOW* (K6) ,MESC* (K27) , M1 * <K 
5+K5),M2*(K6+K7),M7*(K17+K1),M8*(K5*K 
5) ,L0DA*(K6) , HI DA* (K 6) ,AMTBUF*(K4) 

MT *=" I C23 SPACES! ! " : MESC*= " Pr ess t 

o Return to Menu" :M1 $ ="Add Coupon":M2 


*="Delete Coupon" 

M7*="List by Date Range":M8*="List by 
Description Range":D*=" / / ":BL* 

= " C2 1 gQ33§a! " : BLS* = BL* 

COR*="C0RRECT7 (Y/N)":B*="C17 SPACES!" 
:TRAP 21000:OPEN #K2,K4,O,"D:DAT":TRA 
P K10000*K4 

INPUT #K2; I COUNT: FOR 1=0 TO ICOUNT-K1 
:INPUT #K2;A,DESBUF*,DBUF*,AMTBUF*:VR 
EF(I )=1:REF<I )=A: IF A >HIREF THEN HIRE 
F = A 
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OD 20080 
IJ 20090 

FB 20100 

BN 2 1000 
IA 2 1010 

II 30000 


DES$(I*K17+K1)=DESBUF$:DAT$<IIK6+K1)= 
DBUF$:AMT$<I*K4+K1)=AMTBUF$:NEXT I 
CLOSE #K2:P0SITI0N K6,K8:? "The highe 
st Reference Number”:POSITION K 1 1 + K 2 , 
K8 + K1:? "used is '* ; H I REF ; " . " : POS I T I ON 
K 6 , K6 

? "There are ";ICOUNT;" Coupons filed 
.":BOSUB 10075:GOTO K100 

CLOSE #K2:IF PEEK<195)<>170 THEN RUN 
OPEN #K2,K8,O,"D:DAT":? #K2;K1:? #K2; 
Kl:2 #K2;"SEVENTEEN LETTERS":? #K2;"9 
91231":? #K2;”9.99":CLOSE #K2:RUN 
DATA 0, 1,2,3,4,5,6,7,8, 11, 14, 17,27,78 
,89,100,1000,10000 
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Investment Tracker 

John L. Nuss 


If you invest in the stock market, this program will help you 
follow the progress of your portfolio. It also demonstrates 
some techniques for using Atari's "Return Key Mode." 

"Investment Tracker" was designed to help investors follow 
the stock market and to quickly determine the overall value of 
a portfolio. Many investors sit down with their Sunday papers 
and review the performance of their stock portfolio, and I 
wrote this program to facilitate that process. 

After current stock prices are entered, it will compute the 
market value of each holding, the gain or loss on each invest¬ 
ment, and the dividend yield if applicable. That information is 
summarized for the entire portfolio, and provision is made to 
review the details of each holding as well as to consolidate 
multiple holdings of a given stock. Then all that has to be 
done is to sit back while the computer calculates and displays 
the results. 

By using Atari's well-documented dynamic keyboard fea¬ 
ture, I've made it easy for users to update their portfolios and 
enter the current prices. It is possible to get information di¬ 
rectly from the screen without input prompts for every data 
field. A screen is displayed with columns for each field and a 
row for each holding or stock. Information already in the 
DATA statement files is appropriately displayed, and the user 
is free to edit as needed (for instance, to update current stock 
prices). 

New entries are added by positioning the cursor at the 
next blank line on the screen and typing in the appropriate 
information in each column field. Entries may also be deleted, 
and a routine is available to keep the files sorted in alphabeti¬ 
cal order. Suitable menus and prompts are included to make 
the procedures self-explanatory. 

Two DATA Files 

Two separate DATA statement files are used. The first stores 
the portfolio data and has fields for the stock name, the pur¬ 
chase price, and the acquisition data of each holding. The sec¬ 
ond contains the latest price and dividend information and the 
date the information was current. 
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It might seem unnecessarily complicated to have two files, 
since the current dividend and price for each stock could just 
as easily have been included in the portfolio file. However, 
using separate files makes it easier to handle situations in 
which the portfolio contains several separate holdings of a 
single stock. That way, the current price needs to be entered 
only once for each stock in order for the program to have data 
to calculate the value of each individual holding. 

Subroutines have been included for dollar and cents 
formatting and to convert fractional stock prices to decimal 
values with which the computer can work. The program will 
handle up to 98 holdings of as many as 98 individual stocks. 

Using the Program 

While program operation should be self-explanatory, some de¬ 
tailed explanations may still be helpful. 

After loading and running the program you will be asked 
to type in the current date. The program expects six digits, so 
preface single-digit months and dates with zero. The date you 
enter should correspond to the date of the price quotations 
you will be using to update the current price and dividend 
records. If you make a mistake while typing in the date, just 
type any nonnumerical key to start over. 

After entering the date, you will be presented with the 
main program menu. If this is your initial run, you will first 
want to enter your portfolio data. Type 1 to go to the REVISE 
PORTFOLIO routine. 

The portfolio holdings screen and its command menu will 
be drawn on the screen. You should type an A to begin enter¬ 
ing your holdings. The cursor will go to the first open line on 
the screen, where you can enter the name of the stock, the 
number of shares that make up the holding, the purchase 
price per share, and the acquisition date. Use the TAB key to 
move from one column to the next. You may ignore the RE or 
Reference Number field at this point. It will be filled automati¬ 
cally and is used by the program if a record must be edited or 
deleted. 

You have 13 spaces for the name of the stock. If this is 
not room enough to type the full names of some companies, 
use the same abbreviations that appear in the newspaper 
financial pages. You may shift to lowercase letters where 
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needed. An alternative would be to use the trading symbol 
abbreviation for the stock. 

Type the number of shares making up the holding in the 
SHRS field. The purchase price may be entered as a fraction 
(for example, 35 1/8) or as a decimal value, whichever way 
the stock or mutual fund is normally quoted. There is not 
much space left for the acquisition date, so you must enter it 
as six unseparated digits. 

The tab stops have been programmed so you can tab from 
one field to the next without having to resort to the cursor 
control keys. If you should, however, happen to space over 
and consequently erase one of the vertical lines separating the 
fields, don't worry. They're there only for cosmetic purposes. 

If you make a mistake, use the cursor keys to correct it. 
Then, when you're satisfied with your entry, hit the RETURN 
key and the program will create a DATA statement containing 
the information you have just entered. The lower six lines of 
the screen will flash as the Return Key Mode is utilized to 
read the DATA statement into the program. The upper portion 
of the screen containing your portfolio information will be un¬ 
affected except for the insertion of a reference number. 

Continue in this manner until all of your stock holdings 
have been entered. Remember, if you have more than one 
holding of a stock, a record must be entered for each purchase 
so that separate gains or losses can be calculated. 

Sorting Your Stocks 

A simple bubble sort routine, which puts the portfolio in 
alphabetical order, can be accessed from the main menu. The 
sort routine will blank the screen to cut processing time; then, 
when the menu returns, the sort is complete. The stocks will 
show up sorted as you requested the next time you look at 
your portfolio. Actually, this routine is rather slow, so I recom¬ 
mend that you attempt to enter your initial portfolio infor¬ 
mation in alphabetical order and rely on the sort routine only 
to put new holdings in order when you add them later on. 

Should you find that you have made any mistakes, they 
can be fixed by typing E to access the editing function. That 
allows you to move the cursor to the offending field, correct it, 
and rewrite the DATA statement with a press of the RETURN 
key. You can also delete a holding (after a sale, for instance) 
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by typing D. The program will ask for the reference number of 
the holding to be deleted. All you need do is type in the num¬ 
ber and hit RETURN. Finally, when your portfolio information 
is up-to-date, type R to return to the main menu. 

Current Prices 

The next step is to enter or update the current prices. Type 2 
to call up this routine. This price update routine works exactly 
as the portfolio revision does, except that you are supplying 
information for each stock and not each individual holding. 
Type A to enter new stocks to the file. 

The fields to be filled for each stock record are the stock 
name, which must be entered in the identical manner which it 
appears in the portfolio file; the current price; the current an¬ 
nual dividend; and the date this information was obtained. The 
date field for any record you add or update will be automati¬ 
cally updated to the date you entered when the run commenced. 

Enter the stock name, price, and dividend just as you did 
the portfolio holding information. You will have to enter data 
for each unique stock you own, but you do not have to enter 
the data more than once if you hold more than one block of a 
particular stock. Corrections and/or price and dividend 
changes are made by typing U for the update routine. This 
routine functions almost like the edit routine, except that after 
each change is recorded (by hitting RETURN) the cursor will 
move to the next stock to permit you to continue to update 
prices. Respond with a Y or N when the program asks if you 
have more to update. 

The D and R routines function as previously described. 
Both the portfolio file and the price file update routines will 
allow you to continue entering data on a new screen, should 
you be unable to find enough room on the initial one. 

Evaluation 

Once all of the relevant data has been loaded into the pro¬ 
gram, you may proceed with computing and summarizing the 
value and gain of your stock holdings. You have two routines 
to choose from. Return to the main menu and type 3 for a 
summary of the entire portfolio status. The program will dis¬ 
play each holding on the screen, along with its current value, 
gain (or loss), and the total annual dividend. The overall totals 
for the portfolio will be accumulated at the bottom of the 
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screen. If your portfolio won't fit on the screen, you can re¬ 
view the first portion of it and then continue the listing on a 
new screen. The totals at the bottom will include only the 
holdings already listed, so you must list all of the portfolio to 
see the grand total. 

Your other option is selection number 4, which will allow 
you to review all of your holdings of a specific stock in more 
detail. If you type 4, a list of your stocks will appear on the 
screen, and you will be prompted to type S to select a stock. 
Any other response will return you to the main menu. 

Having entered an S, you will be prompted to type in the 
name of the stock you want to review. Do so and hit RE¬ 
TURN. Be sure to type in the name exactly as it was entered 
in your data field, being careful to use lowercase characters if 
applicable. (Actually, you needn't enter the entire name, just 
the first unique character string. If the only stock you own that 
begins with an A is Allied Corporation, then an A plus RE¬ 
TURN will suffice. If you also own ATT then you must type 
in at least A1 to look at the Allied.) 

The program will then compile all of the information it 
has for that stock and display it on the screen. The particulars 
on each holding will appear, with room for up to three hold¬ 
ings on the screen at once. If you have more than three blocks 
of a stock, you will be told that there is more to see. You can 
continue to review the holdings of that stock three blocks at a 
time. 

The information displayed will include the name of the 
stock, its current price and dividend, and (for each holding) 
the number of shares, their purchase price, the current value, 
gain or loss, and dividend. At the bottom of the screen will be 
total value, dividend, and gain or loss for all of the holdings 
listed so far, plus the dividend yield for the stock. 

Your other main menu options are the file sorting 
routines, a routine to save the program along with the latest 
data, and a routine to delete all of the data should you want 
to start over or begin another file for a separate portfolio. 

This is a lengthy program, but it is well worth the effort 
to type it in. I'm sure you'll find it useful if you're a stock 
market investor and haven't yet purchased a more sophisti¬ 
cated commercial stock-tracking program. 
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Saving the File 

The program uses DATA statements to store the data. When 
you select the SAVE option, the program will save out the 
whole program to tape. If you prefer to save to a disk, change 
the following few lines: 

6000 REM SAVE DATA ON DISK 
6060 REM 
6070 REM 
6080 REM 

6100 SAVE "D:TRACKER":END 

6110 PRINT "CANNOT SAVE DATA": STOP 

6120 REM 

The program will be saved with the filename TRACKER. 

Save a backup copy of the program just in case the worst 
happens. 

Investment Tracker 

For error-free program entry, read "The Automatic Proofreader" in Chapter I before typing 
in this program. 

ND 5 0 REM * * * Stock Port-folio Tracker 
NK 110 GOSUB 8000 
IN 1 20 GOTO 1 000 

PN 200 REM -CLEAR SCREEN 8< WRITE TITLE 
KN 210 ? ” {CLEAR! ” : SETCOLOR 2,11,0:SETCOLOR 4, 

11,0:POKE 752,1:TRAP 1000 
KB 220 POSITION 5,0:7 TITLE* ; CDATE$ ( 1,2) ;SLt;C 
DATE*(3,4);SLt;CDATEt(5,6) 

HL 290 RETURN 

NL 300 REM -FORCED READ PART 1 
EE 310 POSITION 0,19:7 CBS* 

OK 320 POSITION 0,19:RETURN 
OB 350 REM -FORCED READ PART 2 
Eft 360 7 ”CONT” 

NE 370 POSITION 0,18 
HI 380 POKE 842, 13: STOP 

Gfi 390 POKE 842, 12:GOSUB 310:RETURN 

PP 400 REM -INTERPRET PRICE STRINGS 

ftC 410 REM -CONVERT FRACTIONS TO DECIMAL 

8(1 420 FOR 1 = 1 TO LEN(PRCi) 

AG 4 30 IF PRC* (1,1) =SL$ THEN 450 
CP 440 NEXT I: GOTO 480 

PG 4 50 PRC = VAL (PRC* ( 1-1 , I — 1) )/VAL(PRC*(I + l, 1 + 1 
) ) 

BP 460 IF I > = 3 THEN PRC = PRC +VAL ( PRC* (1,1-3)) 

HB 470 GOTO 490 
PL 480 PRC = VAL < PRC* ) 
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HG 490 I=LEN (PRCt ) : RETURN 
HN 500 REM -DOLLAR AND CENTS FORMAT 

DN 5 1 0 IF A B S < A M T > > = 1 0P W R THEN AMT$ = STR$ (AMT) 

:RETURN 

CJ 520 AMT$ = " ” : AMT $ ( 1 , PWR + 3) =BL$: AMT$ (PWR + 1 , PUJ 
R+l)=".”:B=PWR+1-LEN(STR^(INT(AMT)))+(A 
M T < 0 ) 

HN 530 IF AMT <0 THEN AMT=-AMT : AMT$ ( B — 1 , B — 1 ) = " — 

>1 

CA 54 0 AMT$ (B,PWR)=STR$ (INT (AMT) ) 

HJ 550 AMT$ (PWR+1 , PWR + 3) = STR$ ( 100+INT ( (AMT-INT 
(AMT) ) *100 + 0.5) ) : AMT $ (PWR+1 , PWR+1 ) = " . ” 

CN 560 IF VAL ( AMT$ ) <0 THEN AMT = — AM T 

HH 570 RETURN 

FC 600 REM -DATA FOR DATE, NUMBER OF HOLDINGS 

AND STOCKS 

IJ 6 10 DATA 000000,0,0 
BK 700 REM -HOLDINGS DATA 
II 799 DATA d 
DG 800 REM -PRICE DATA 
IJ 899 DATA d 

IB 900 REM -CLEAR TAB STOPS 


JK 

9 1 0 

? " (CLEAR} 

II 




OL 

940 

FOR 1=1 TO 

6 

. r ~> M 

m 

(TAB} 

C CL R TAB} ” ; : NEXT I 

HO 950 

RETURN 





CM 

1 000 

REM -MAIN 

MENU 



ME 

1010 

GOSUB 200 





BN 

1020 

POSITION 

3 , 

“▼ B n 

x_> : 

"PLEASE SELECT ONE:” 

HI 

1 030 

POSITI ON 

6, 

6 : ? 

" 1 - 

REVISE PORTFOLIO” 

HJ 

1 040 

POSITION 

6, 

8 : ? 

■» r> _ 

UPDATE PRICES” 

BD 

1 050 

POSITION 

6 , 

10:7 

II *7 

- 

SUMMARIZE PORTFOL 



IO VALUE" 





LB 

1 060 

POSITI ON 


12:7 

”4 - 

REVIEW INDIVI DUAL 



STOCKS” 





IF 

1 070 

POSITION 

6, 

14:7 

ii cr 

uJ — 

SORT DATA" 

FL 

1 080 

POSITION 

6, 

16:7 

”6 - 

SAVE PROGRAM AND 



DATA” 





LF 

1 090 

POSITION 

6, 

18:7 

”7 - 

ERASE DATA” 

HH 

1 1 20 

GET #2,R 





NN 

1 1 30 

IF R < 4 9 OR 

R > 5 5 

THEN 

1 1 20 

OC 

1 140 

ON VAL(CHR$ 

( R ) ) 

GOTO 

5000,2000,3000,40 



00,7400,6000,7000 


HL 

1 300 

REM -ELIMINATE 

COMMAS FROM DATA 

PB 

1310 

FOR 1=1 TO 

LEN(IN$) 


PC 

1 320 

IF IN$(I, 

I ) 

_ II II 

THEN 

IN$(I,I)="H" 

EP 

1 330 

NEXT I 





KI 

1340 

RETURN 






IM 13 9 0 POP : G O T O RN + 200 

DE 14 0 0 REM -ADD TO PORTFOLIO OR PRICE FILE 
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MI 14 10 

MN 14 15 
HI 1420 
HI 1430 


LI 1440 
MO 1450 
HJ 1460 
KM 14 70 
NI 1490 
EB 1500 
FN 15 10 
AG 2000 
CM 20 10 
BL 20 15 


N6 2020 
PP 2030 
CA 2040 

ON 2050 

CA 2060 

EA 2070 
ML 2 1 00 
AO 2 1 1 0 

MP 2 120 
FK 2130 
EC 2140 
GP 2 150 
EG 2 160 
EN 2170 
DI 2180 
MI 2190 
KP 2200 
JG 2210 

CP 2220 
DD 2230 
NG 2240 
KI 2250 
EM 2260 

IA 2290 
OJ 2300 
AM 2310 

200 


IF C N T =13 THEN CNT = 0: SCR = SCR +1 : POP : GO 
TO RN+20 

IF CNT =13 THEN POP :GOTO RN+100 
POSITION 1,19:7 CBS$ 

POSITION 3,18:7 "ENTER THE APPROPRIATE 
DATA IN EACHC3 SPACES}-COLUMN AND PRES 

s ■nmmor* 

POKE 752,0:POSITI ON 3,CNT + 4:7 "I": 

TRAP 1390 

INPUT #1,IN$:POKE 752,1:GOSUB 1310 
RETURN 

CNT = CNT -f 1 : ITM=ITM+ 1 

POSITION 1 + (ITM<10),CNT+3:7 ITM 

GOTO RN+200 

REM -PRICES AND DIVIDENDS 
SCR=1:CNT=0:ITM=0:RESTORE 800 
GOSUB 910:7 "14 SPACES}- CSET TAB! 

C14 SPACES!(SET TAB}(8 SPACES}(SET TAB} 
16 SPACES}- CSET TAB} " 

GOSUB 200 

POSITION 0,1:7 OL$ 

POSITION 0,2:7 "CVIREIC4 SPACES}STOCK 
{4 SPACES} IC.PRICEIDIVNDI DATE CB } " 
POSITION 0,3:7 " C V } I 2 M } I II 3 M } I C 7 M }• I 

C 5 M } I C 6 M } C B }• " 

FOR 1=1 TO 13:POSITION 0,1+3:7 PR$:NEX 
T I 

POSITION 0,17:7 UL$ 

IF C N T =13 THEN 2200 

READ STK$: IF STK$="[=" THEN 2200 

CNT=CNT+1:ITM=ITM+1 
READ CP$,DV$,CD$ 

POSITION 1+(ITM<10),CNT+3:7 ITM 
POSITION 4,CNT+3:7 STK* 

POSITION 18,CNT + 3:7 CP* 

POSITION 26,CNT+3:7 DV* 

POSITION 32,CNT + 3:7 CD* 

GOTO 2100 

POSITION 1,18:7 CBS*; 

7 "{3 SPACES>ENTER AN INSTRUCTION TO P 

ROCEED:" 

7 " C6 SPACES}-A - ADD A NEW STOCK" 

7 "C6 SPACES}D - DELETE A STOCK" 

7 " C6 SPACES}* U - UPDATE INFORMATION" 

7 "C6 SPACES}-R - RETURN TO MAIN MENU" 

IF CNT=13 AND NUMS>13*(SCR) THEN POSIT 
ION 6,23:7 "C - CONTINUE LISTING"; 

GET #2,R 

IF R = 6 5 OR R = 97 THEN 2370 
IF R = 68 OR R =10 0 THEN 2710 
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BD 2320 
AH 2330 
PN 2340 
NA 2350 
OL 2370 
ID 2470 

OF 2480 

CP 2490 
HJ 2520 
JJ 2530 


JO 2540 

BG 2 5 50 
00 2580 

DI 2590 

FL 2595 
HO 2600 
HO 2630 
KL 2640 

MG 2650 
HH 2655 

FN 2660 
BE 2670 

NF 2680 
DN 2700 
HK 27 1 0 
LK 2720 


EL 2730 

BF 2740 
KE 2750 
OJ 2760 

FI 2770 
FD 2780 

CJ 2790 
HA 3000 
AE 3010 


IF 

R = 85 

OR 

R=1 17 

THEN 

2520 

IF 

R = 82 

OR 

R= 1 1 4 

THEN 

10 10 

I F 

R = 67 

OR 

R = 99 

THEN 

RN = 2 00 0: GOTO 1410 


GOTO 2290 

RN=2000:GOSUB 1410 

STK$=IN$(1, 13) :CP$=IN$(15,21) :DV$=IN$ ( 
23,27):CD$=IN$(29,34) 

GOSUB 310:? "(DOWN}";800+ITM+l;D$;STK$ 

;CM$;CP$;CM$;DV$;CM$;CD$:GOSUB 360 
NUMS=NUMS+1:GOTO 1490 
POSITION 1,18:? CBS$ 

POSITION 3,19:? "MOVE CURSOR TO LINE T 
O BE UPDATED,t3 SPACES!MAKE CHANGES AN 


RETURN 


POKE 752,0:POSITION 0,18:? " ";:TRAP 1 

390 


INPUT #1,IN$:GOSUB 1310 

RE=VAL(IN$<2,3)):STK$=IN$(5,17):CP$=IN 
$(19,25):DV$=IN$(27,31):CD$=CDATE$ 
GOSUB 310:? "CDOWNI";800+RE;D*;STK$;CM 

$ ;CP$;CM$;DV$;CM$;CD$:GOSUB 360 
POSITION 32, RE + 3-13* <SCR-1 ) :? CDATE$; 
POSITION 1,22:? "MORE TO UPDATE?"; 

GET #2, R 

IF R = 7 8 OR R =1 10 THEN POKE 752, l:GOTO 
2200 


IF R< >89 AND R<>12 1 THEN 2630 
IF RE/13=I NT (RE/13) THEN RN=2000:GOSUB 
14 10 

POSITION 1,22:? " C DEL LINE!" 

POSITION 0,RE + 4-13*(SCR-l):? " I VI- 

CLEFT! " ; 

GOTO 2550 

REM -DELETE STOCK INFO 
POSITION 1,18:? CBS$ 

POSITION 3,19:? "ENTER REFERENCE NUMBE 
R OF INFO TO BE DELETED, PRESS ■:3=*iUfir 
■":POKE 752,0 

INPUT RE:POKE 752,1:RESTORE 800+RE+l:I 
F RE=NUMS THEN 2780 
FOR I= RE TO NUMS-1 
READ STK$,CP$,DV$,CD$ 

GOSUB 310:? "CDOWN3";800+1;D$;STK$;CM$ 

;CP$;CM$;DV$;CM$;CD$:GOSUB 360 
NEXT I 

GOSUB 310:? "(DOWN}";800+NUMS:GOSUB 36 

0 

NUMS=NUMS—1:GOTO 2010 

REM -PORTFOLIO SUMMARY 

SCR=0:ITM=0:CNT=0:TV=0:NG=0:DV=0 
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NH 3020 
AB 3030 
JA 3040 


NA 3050 

NA 3060 

AB 3070 

EC 3080 
IE 3090 
HD 3 100 
HK 3 1 1 0 
BH 3120 
GH 3 130 
IE 3140 
PN 3150 
GC 3 155 
OJ 3160 
IB 3 170 
GG 3 1 80 


JG 3 1 90 
GD 3200 
NH 32 10 


JA 3220 
DM 3230 
OK 3240 
JD 3250 
EJ 3260 
HL 3270 
ML 3280 
PK 3 700 
GB 3710 
HK 3720 
II 3800 
LE 38 10 
NA 3820 
LG 3830 
HL 3840 
LI 3850 
PN 3860 
KN 38 70 

IN 3900 
HD 39 10 
MI 3920 


GOSUB 200 

POSIT ION 1,1:7 OL$ 

POSITION 1,2:7 ”CV>C3 SPACESISTOCK 

C3 SPACES} I VALUE I NET GAIN I DIVND 

c b y 

POSITION 1,3:7 "(VH11 M} I (8 M} I (8 Mi l 

C 7 M > C B 3" 

FOR 1=4 TO 19:POSITION 1,1:7 SR$:NEXT 
I 

POSITION 1,20:7 "CV3C11 M>I(8 M3 1C 8 M3 

» C 7 M } € B > " 

POSITION 1,21:7 SR$ 

POSITION 8,21:7 "TOTAL’' ; 

POSITION 1,22:7 UL$; 

ITM=ITM+1:RESTORE 700+ITM:TRAP 1390 
READ STK$: IF STKI^"^" THEN 3800 
READ SH$,PP$,AD$ 

RESTORE 800 

READ SEL$: IF SEL$= ,, [a ,, THEN 3700 
READ CP$,DV$,CD$ 

IF SEL$OSTK$ THEN 3150 
POSITION 2,CNT + 4: 7 STK$(1, 11) 

PRC$=CP$:GOSUB 400:AMT=VAL(SH$)*PRC:PW 
R=5:GOSUB 500 


POSITION 14,CNT +4: 7 AMT$ 

TV=TV+AMT 

PRC$=PP$:GOSUB 400:AMT=AMT-VAL(SH$)*PR 
C:GOSUB 500 

POSITION 23,CNT+4:7 AMT* 

NG=NG+AMT 

AMT=VAL(DV*)*VAL<SH*):PWR=4:G0SUB 500 


POSITION 32,CNT+4:7 
DV=DV+AMT 

AMT* 


CNT=CNT+1:IF CNT=16 

GOTO 3110 

THEN 

3800 

POSITION 1,23:7 "NO 
FOR 1=1 TO 300:NEXT 

INFO 

I 

FOR " ; S T K *; 


GOTO 3110 


AMT = TV:PWR = 5:GOSUB 500 
POSITION 14,21:7 AMT* 
AMT=NG:GOSUB 500 
POSITION 23,21:7 AMT* 
AMT=DV:PWR=4:GOSUB 500 
POSITION 32,21:7 AMT* 
IF ITM>=NUMH THEN 3950 


POSITION 1 


23: 


ll 


ORE STOCKS 


C TO CONTINUE 


GET # 2,R: IF R< >67 AND R<>99 THEN 
IF ITM<NUMH THEN CNT=0:GOTO 3020 
GOTO 1000 


3900 


202 



Chapter 4 


PI 3950 

NH 3960 
GH 4000 
KD 4010 
NI 4020 
JD 4030 
NO 4040 

NH 4050 
FO 4060 
DI 4070 
BF 4080 
CC 4090 
HS4100 
in 4 1 10 
KD 4 120 


ii 




n 


CB SPACES} 


CT 


POSITION 1 


CONTINUE 


GOTO 3900 

REM -REVIEW INDIVIDUAL STOCKS 
SCR=1:ITM=1:RESTORE 800 
GOSUB 200 

POSITION 14,2:7 '’STOCKS" 

READ STK$ : IF ST^^n" THEN ITM = 0:GOTO 
4110 

IF IT M >17 THEN 41 10 
READ CP$,DV$,CD$ 

ITM=ITM+i 
POSITION 10,2+ITM 
7 STK$ 

GOTO 4040 

POSITION 1,21:7 M C3 DEL LINE} 

7 "C4 SPACES} 


II 


ENTER S TO SELECT ft STQ 


OB 4 130 
AC 4 140 

HP 4 170 
BD 4180 
AL 4 190 

HA 4200 
IN 4210 
00 4220 

OB 4230 
IA 4240 
IF 4250 
PH 4260 
EA 4270 

GC 4280 
OB 4290 
FL 4300 
KE 4 350 
FD 4360 
EF 4365 
AO 4370 
EK 4380 


IE 4390 


NG 4400 
0L 44 10 


IF IT M < 18 THEN 4170 
POSITION 1,23:7 ” 


RE STOCKS 


ENTER C TO LIST M 


GET #2 , R 
IF R=83 OR 
IF R=67 OR 
OTO 4060 
GOTO 1000 
POSITION 1 
POSITION 1 
7 52 ,0 


R=115 THEN 4210 
R = 99 THEN ITM=l:GOSUB 


21 : 


1 : 


” C 3 DEL LINE}" 


WHICH STOCK? 


INPUT #1,SEL$ 
1=0 


200 : G 


: POKE 


1=1+1:IF I>NUMS THEN 4900 
RESTORE 800+1 

READ STK$:IF STK$(1,LEN(SEL$))<>SEL$ T 
HEN 4250 

READ CP$,DV$ , CD$ 

GOSUB 200 
TV=0:NG=0:DV=0 

POSITION 9,2:7 "STOCK: ";STK$ 

POSITION 2,4:7 "CURRENT PRICE: ";CP$ 

POSITION 25,4:7 "DIVIDEND: ";DV$ 
POSITION 1,6:7 OL$ 

POSITION 1,7:7 ”CV} DATAC4 SPACES}* H 

OLDINGI HOLDING* HOLD INGCB} " 

POSITION 1,8:7 n CV}C10 SPACES}* NO. 

C3 SPACES}- I NO. (3 SPACES} * NO. 

C 3 SPACES} (B} " 

POSITION 1,9:7 "(VX10 M}*C8 M} I (8 M>* 

C 8 M } C B } " 

FOR 1=10 TO 16:POSITION 1,1:7 DR$:NEXT 
I 
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IB 4420 
NO 4 4 30 
FH 4440 
FB 4450 
FC 4460 
AH 4470 
El 4480 
IB 4490 

EB 4500 

DH 45 10 
EC 4520 
CD 4530 
NE 4540 
60 4 550 
EH 4560 
EP 4565 
LE 4570 
AN 4580 

LL 4590 
6H 4600 

P6 4 6 1 0 
DP 4620 
OA 4 6 30 

PK 4640 
ED 4650 
EO 4660 
PO 4670 
FA 4680 
OH 4690 
LK 4700 
NA 4 7 1 0 
LH 4720 
HL 4730 
LO 4 7 40 
HO 4750 
LK 4 7 60 
N6 4 7 70 
KB 4800 
KA 48 10 

NH 4820 
OB 4850 

KN 4860 


204 


POSITION 


10: 

o 

"SHARES" 

POSITION 

j— , 

1 1 : 

o 

"ACQ. DATE" 

POSITION 

2, 

12: 

o 

"PUR. PRICE" 

POSITION 

2 , 

13: 

o 

"CUR. VALUE" 

POSITION 

o 

jL- t* 

ia 

tH 

9 

"GAIN/LOSS" 

POSITION 

2 , 

15: 

7 

"DIVIDEND" 

POSITION 

1 , 

17: 

7 

UL$ 

POSITION 

1 , 

19: 


"TOTAL VALUE: 


C10 SPACES!DIVIDEND: " 

POSITION 1,21:7 "NET GAIN/LOSS: 

Cll SPACES! YIELD: 16 SPACES!"/." 

ITM=0:CNT=0:SCR=0 

I TM= ITM+1 -.RESTORE 700+ITM 

READ STK$:IF STK$="d" THEN 4850 

IF STK$(1,LEN(SEL$))<>SEL$ THEN 4520 

READ SH$,PP$,AD$ 

CNT = CNT +1 : IF CNT = 4 THEN 4800 
POSITION 10+CNT*9,8:? CNT+SCR*3 
POSITION 7+CNT*9,10:7 SH$ 

POSITION 4+CNT*9,11:? AD$(1,2);SL$;AD$ 
(3,4);SL$;AD$(5,6) 

POSITION 5+CNT*9,12:7 PP$ 

PRC$=CP$:GOSUB 420:AMT=PRC*VAL(SH$):PW 
R = 5:GOSUB 510 

POSITION 4+CNT*9,13:7 AMT$ 

TV=TV+AMT:YD=100*VAL(DV$)/PRC 
PRC$=PP$:GOSUB 410:AMT=AMT-VAL(SH$)*PR 
C:GOSUB 510 

POSITION 4+CNT*9,14:7 AMT $ 

NG = NG + AMT 

AMT=VAL< SH$ )*VAL(DV$):GOSUB 510 
POSITION 4+CNT*9.15:7 AMT$ 

DV=DV+AMT 

AMT=TV:GOSUB 510 

POSITION 14,19:7 AMT$ 

AMT=NG:GOSUB 510 
POSITION 16,21:7 AMT $ 

AMT = DV:PWR=4:GOSUB 510 
POSITION 32,19:7 AMT $ 

AMT=YD:PWR=2:GOSUB 510 
POSITION 33,21:7 AMT$ 

GOTO 4520 

SCR=SCR+1:CNT=0:LN=4560 


POSITION 1,23:7 " 


C TQ CONTINUE 


GOTO 4930 
POSITION 1,23:7 " 


PE C TQ CONTINUE 


MORE HOLDINGS, TYPE 


NO MORE HOLDINGS 


II 


LN=1000:GOTO 4930 
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PI 4900 

ID 4930 
AA 4940 
NL 4950 
GC 5000 
CO 50 1 0 
BO 5015 


NJ 5020 
AC 5030 
GK 5040 

EA 5050 

BL 5060 

ED 5070 
NB 5 100 
BE 5 1 1 0 
NC 5 1 20 
GJ 5 130 
EF 5 140 
HC 5 150 
FB 5 160 
FE 5 170 
DJ 5180 
HO 5 190 
HG 5200 
BB 52 10 

OE 5220 
GD 5230 


STOCK HOT FOUMD 


TYPi 


POSITION 1,23:? ” 

»;:LN=1000 

GET #2 5 R 

IF R=67 OR R=99 THEN GOTO LN 
GOTO 4930 

REM -REVISE PORTFOLIO 
SCR=1:CNT = 0: I TM = 0: RESTORE 700 
GOSUB 910:7 " C 4 SPACESHSET TAB} 

114 SPACES!(SET TAB!C6 SPACES!(SET TAB 
C 8 SPACES! (SET TAB! " 

GOSUB 200 

POSITION 0,1:7 OL$ 

POSITION 0,2:7 "CVIREIC4 SPACES!STOCK 
14 SPACES!! SHRSIP. PRICE I A- DATE CB! 
POSITION 0,3:7 " IV! 12 MIIC13 MI-IC5 Mil 


14 SPACES!! SHRSIP. PRICE I A- DATE CB! 
POSITION 0,3:7 " IV ! I 2 M! I (13 MI- I (5 

17 Mil {6 MI I B I- " 

FOR 1=1 TO 13:POSITION 0,1+3:7 HR$ 
T I 

POSITION 0,17:7 UL$ 

IF CNT =13 THEN 5200 

READ STK$ : IF STK$= ,, n" THEN 5200 
CNT=CNT+1:ITM=ITM+1 
READ SH$.,F'P$, AD$ 

POSITION 1+(ITM<10),CNT+3:7 ITM 
POSITION 4, CNT + 3:7 STK$ 

POSITION 18, CNT + 3:7 SH$ 

POSITION 24,CNT + 3:7 PP$ 

POSITION 32,CNT+3:7 AD$ 

GOTO 5100 
POSITION 0 
POSITION 4 


HR$:NEX 


00 


I TM 


18:7 

18:7 


CBS$ 

"ENTER 


AN INSTRUCTION 


TO PROCEED:" 

7 "15 SPACES!A - ADD TO PORTFOLIO" 

7 " C 5 SPACES! D - DELETE FROM PORTFOLIO 


KE 5240 7 " C5 SPACES! E - EDIT PORTFOLIO" 

KL 5250 7 "15 SPACES! R - RETURN TO MAIN MENU" 

ED 5260 IF CNT= 1 3 AND NUMH>13* (SCR) THEN POSIT 
ION 5,23:7 "C - CONTINUE LISTING"; 

ID 5290 GET #2, R 

OP 5300 IF R = 65 OR R = 97 THEN 5370 

BB 5 310 IF R = 68 OR R=100 THEN 5610 

BF 5320 IF R = 69 OR R=101 THEN 5530 

AK 5330 IF R = 82 OR R= 1 1 4 THEN 1010 

AD 5340 IF R = 67 OR R = 99 THEN RN = 5000:GOTO 1410 

NG 5350 GOTO 5290 

PB 5370 RN = 5000: GOSUB 1410 

JH 54 7 0 STK$=IN$ ( 1 , 13) :SH$=IN$(15, 19) :PP$=IN$( 
21,27):AD$=IN$(29,34) 
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PD 5480 

BH 5490 
HN 5530 
EF 5540 


KA 5560 

HP 5570 
HN 5580 

IA 5590 


IB 5600 
HH 5610 
JF 5620 


ED 5630 

AH 5640 
LC 5650 
PG 5660 

FK 5670 
EJ 5680 

BI 5690 
OH 6000 
NJ 6010 
JP 6020 
NN 6030 
GO 6040 

OE 6050 
GO 6060 

HK 6070 

KG 6080 
MO 6090 
KA 6 100 
DK 6 1 1 0 
BB 6 120 
KB 6130 
DL 7000 
NK 7 0 10 


GOSUB 310:? "(DOWN}";700+ITM+l;D$;STK$ 

;CM$;SH$;CM$;PP$;CM$;AD$:GOSUB 360 
NUMH=NUMH+l:GOTO 1490 
POSITION 1,18s? CBS* 

POSITION 3,19:? "MOVE CURSOR TO LINE T 
O BE EDITED,C4 SPACESIMAKE CHANGES AND 

press Mnmnnnm" 

POKE 752,0:POSITION 3,18:? ” :TRAP 5 

200 

INPUT #1,IN*:POKE 752,l:GOSUB 1310 
R E = V A L (IN* (2,3) ) :STK*=IN*(5, 17) :SH*=IN 
*(19,23):PP$=IN*(25,31): AD*= IN* ( 33 , 38) 
GOSUB 310:? "CDOWN!";700+RE;D*;STK*;C 

* ;SH* ;CM*;PP*;CM*;AD*:GOSUB 360:GOTO 
200 

REM -DELETE FROM PORTFOLIO 
POSITION 1,18:? CBS* 

POSITION 3,19:? "ENTER REFERENCE NUMBE 
R OF HOLDING TO BE DELETED, PRESS IFIWi 
I": POKE 752,0 


URN 


INPUT RE:POKE 752, 1:RESTORE 700+RE + l: I 
F RE=NUMH THEN 5680 
FOR I=RE TO NUMH-1 
READ S T K $ , S H $ ,PP$,ftD$ 

60SUB 310:7 "{DOWN!";700+1;D$;STKt;CMt 

;SH$;CM$;PP$;CM$;AD$:GOSUB 360 
NEXT I 

GOSUB 310:7 "CDOWN}";700+NUMH:GOSUB 36 

0 

NUMH=NUMH-1:GOTO 5010 
REM -SAVE DATA ON TAPE 
GOSUB 200 

POSITION 14,2:7 "SAVING DATA" 

GOSUB 310 

7 "CDOWNI";610;D $ ;CDATE$;CM$;NUMH;CMt; 

NUMS 

GOSUB 360 

POSITION 4,5:7 ”1 - TURN OVER CASSETTE 


AND REWIND” 

POSITION 4,7:7 "2 - PRESS 


RECORD 


AND 


II 


RETURN 


POSITION 4,9:? "3 - PRESS 

TRAP 6110 
LPRINT 
CSAVE 

POSITION 4,11:? "4 - REWIND TAPE" 

END 

REM -ERASE ALL DATA 
GOSUB 200 


II 
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JN 7020 


HP 7050 
IJ 7060 
QA 7070 
KB 7080 
EJ 7090 
EP 7 100 
FB 7 1 10 
EO 7120 
FD 7 130 
FI 7135 
FL 7 1 40 
HA 7150 

6E 7160 
HJ 7 170 
DO 7400 
NO 74 10 
El 7420 
PC 7430 

ML 7440 

ID 7450 
HE 7460 
HJ 7470 
NH 7480 
CS 7490 
DB 7500 
BA 7510 
MP 7520 
MF 7530 
IC 7540 
PB 7550 
FO 7560 

EP 7570 

OB 7580 
IE 7590 
LL 7600 
KH 76 10 
KC 7620 
BH 7630 

KA 7640 

JN 7650 


POSITION 4,8s? "DO YOU REALLY WANT TO 
ERASE ALL 0FC13 SPACES! C6 M3 C27 SPACES!Y 
OUR DATA?” 

GET #2,R 

IF R< >8 9 THEN 1000 
GOSUB 200 

POSITION 15,10s? "ERASING DATA...” 

FOR 1=1 TO NUMH 

GOSUB 310:? ”CDOWN3”;700+1:GOSUB 360 

NEXT I 

FOR 1=1 TO NUNS 

GOSUB 310:? "{DOWN}800+1:GOSUB 360 

NEXT I 

NUMS=0:NUMH=0 

POSITION 15,10:? "DATA ERASED 
C4 SPACES!" 

FOR 1=1 TO 300:NEXT I 
GOTO 1000 
REM - SORT DATA 
GOSUB 200 

POSITION 12,2s? "DATA SORT ROUTINE” 
POSITION 8,6:? "ENTER 1 TO SORT PORTFO 
L 10" 

POSITION 8,8:? "ENTER 2 TO SORT PRICE 
FILE" 

GET # 2,R 

IF R = 4 9 THEN ID = 7 0 0:ND = NUMH: GOTO 7490 
IF R = 50 THEN ID = 800: ND = NUMS:GOTO 7490 
GOTO 7450 

S A = P E E K(559) : POKE 559,0 
SCHK=0:IN$=BL$:RESTORE ID 
FOR I=ID+1 TO ID+ND 

IF ID = 7 0 0 THEN READ STK$, SH$, PP$, AD$ 

IF ID = 80 0 THEN READ STK$,CP$, DV$, CD$ 

IF STK$<IN$(1,13) THEN 7590 
IN$(1,13)=STK$ 

IF ID = 7 00 THEN IN$ ( 15, 19)=SH$: IN$ (21,2 
7)=PP$:IN$(29,34)=AD$ 

IF ID=800 THEN IN$(15,21)=CP$:IN$(23,2 
7)=DV$:IN$(29,34)=CD$ 

GOTO 7670 
SCHK= I 

GOSUB 310:? "(DOWN!";1-1;D$;STK$;CM$; 

IF ID = 7 00 THEN ? SH$;CM$; PP$;CM$;AD$ 

IF ID=800 THEN ? CP$;CM$;DV$;CM$;CD$ 
GOSUB 360:? " (DOWN!"; I ;D $; IN$ ( 1 , 13) ;CM 

*; 

IF ID = 700 THEN ? IN$ ( 15, 19) ;CM$; IN$ (21 
, 27) ; 

IF I D = 8 0 0 THEN ? IN$ < 15,21 ) ; CM$; IN$ (23 
27) ; 
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FO 7660 
FH 7670 
PG 7680 
JN 7690 
EE 8000 
HK 80 10 

NE 8020 

00 8030 

BL 8040 

HH 8050 

FH 8 1 1 0 
DO 8 1 20 
CN 8 130 
NA 8140 
DA 8150 
BA 8160 
BH 8 170 

CA 8 180 

JJ 8190 

KA 8200 

PO 82 10 
LF 8220 


PC 8230 
AB 8900 
EG 89 10 
HG 9000 
NH 90 10 
PO 9020 

OB 9030 
EF 9050 
ID 9070 
GB 9080 

OL 9090 
KN 9 100 
EA 9 1 1 0 
FE 9120 
KO 9140 


? CM*;IN*<29,34):GOSUB 360 
NEXT I 

IF SCHK >0 THEN 7500 

POKE 559,SA:GOTO 1010 

REM -DIMENSION AND INITIALIZE 

OPEN #1,12,0,"E:"sOPEN #2,4,0,"K:":POK 

E 82,0 

DIM TITLE*(22),CDATE*(6),SL*(1),CM*(1) 

,D*(6),CBS*(6) 

DIM STK*(13),SH*<5),PP*(7),AD*(6),CP*( 
7),CD*(6),DV*(5) 

DIM SEL*<13),IN*<39),AMT*(9),PRC*(7),B 
L*(39) 

DIM OL* (39) ,UL* (39) ,HR* (39) ,PR* (39) , DR 
*(39),SR*(39) 

TITLE*="STOCK PORTFOLIO AS OF " 

SL * = "/ ” 

CM*= " , " 

D* = " DATA " 

OL*="C 39 NO" 

UL*="(39 MO" 

HR*="CV> I C 1 3 SPACES0 l {5 SPACESO t 
C 7 SPACESO I C6 SPACES} (BO-" 

PR*="CVO IC13 SPACES}I(7 SPACES}I 
C 5 SPACES} I (6 SPACESO CBO " 

DR*="CVOC10 SPACES}I(8 SPACESO! 

C8 SPACES} I (8 SPACESO CBO " 

SR*="CV0C11 SPACES}IC8 SPACESO! 

C8 SPACES} I (7 SPACESO CBO " 

BL*=" C 39 SPACESO " 

SEL*=BL*:STK*=BL*:SH*=BL*:PP*=BL*:AD*= 
BL*:IN*=BL*:CP*=BL*:DV*=BL*:AMT*=BL*:P 
RC* = BL * 

CBS*="C6 DEL LINE}" 

REM -READ KEY DATA 
READ CDATE*,NUMH,NUMS 
REM -ENTER DATE 
GOSUB 200 

POSITION 2,3:7 "ENTER CURRENT DATE (MM 
/DD/YY)." 

POSITION 22,5:7 "■■/H/HB” 

FOR 1=1 TO 6 
GET # 2,R 

IF R < 4 8 OR R >57 THEN CDATE*=" 

C 6 SPACES}": 1=6:GOTO 9030 
POSITION 21+1+(I>2)+(I>4),5 
7 CHR * (R) 

CDATE* ( I ,I)=CHR$(R) 

NEXT I 
RETURN 
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Horizon: A Celestial 
Coordinates Calculator 

Russell A. Grokett, Jr. 


Among your Atari's many talents is the ability to precisely 
locate the planets and stars. With this program, astronomy 
and photography buffs will be able to pinpoint celestial 
bodies with remarkable accuracy. 

Remember when you got that telescope for Christmas, and 
how you ran out to set up your new equipment, only to dis¬ 
cover how hard it was to find anything more difficult than the 
moon or a few stars? 

Now your Atari comes to the rescue. With the aid of "Ho¬ 
rizon," your computer, and a star atlas or almanac, you can 
find the altitude and azimuth, in degrees, of any celestial ob¬ 
ject, at any time, whether it's rising, setting, or high in the 
sky. Then, with the use of a compass, you can position your 
camera or telescope in just the right direction, ready to begin 
observation. 

Using Horizon 

In order to calculate the altitude and azimuth of an object, the 
program will ask for the date (month, day, year) and universal 
time (UT), in hours and minutes, of the event. It will also ask 
for your latitude and longitude (in degrees and minutes of arc) 
at the time of the event, as well as the right ascension (RA) (in 
hours and minutes) and the declination (DEC) (in degrees and 
minutes) of the object, as published in a star atlas or celestial 
almanac. 

The program will then print out the altitude and azimuth 
of the object for the specified time and location. Note that if 
an object is below your horizon at the time, the altitude angle 
will be a negative number. 

If you want to calculate the azimuth angle for a rising or 
setting object, you will need only your latitude and the ob¬ 
ject's declination. The output will then be the azimuth angle 
of the object. 

With that information, set up your camera or telescope. 
Use a compass to position your camera the number of degrees 
from true north specified by the azimuth angle. If the altitude 
angle of your camera needs to be set, use a device like that 
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shown in the figure to tilt your camera the required number of 
degrees. Lock everything down, and wait for the specified 
time to arrive! 

A Simple Elevation-Only Tracking Device 



How Horizon Works 

Lines 250-370 calculate your local sidereal time for the event. 
Lines 390-480 gather information concerning your position 
and the object's position. Lines 490-540 convert everything to 
radians and calculate the altitude and azimuth of the object, at 
the specified time, and lines 850-990 calculate the object's 
rising or setting azimuth. 

Lines 1110-1230 calculate the Julian day for the month, 
day, and year that you entered, in order to determine your 
local sidereal time. If you wish, you can modify lines 330, 440, 
and 860 to print your longitude and latitude. 

Horizon: A Celestial Coordinates Calculator 

For error-free program entry , read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

HC 150 DIM N < 1 2 ) 

CM 1 60 LET RADIAN=0„0174532 
EG 170 LET DEGREE = 57.295778 
NA 180 OPEN # 1,4,0, ”K: ” 

FB 190 FOR 1 = 1 TO 12: READ N : N ( I ) =N : NE X T I 
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LK 200 

SF 210 
KB 220 
PE 230 
LP 240 
MH 250 

KB 260 
NL 270 
BA 280 
JK 290 

FK 300 
EB 310 
LL 320 

KO 330 

m 340 

CN 350 
LJ 360 
KF 370 
FN 380 
NH 390 

HH 400 
AO 4 1 0 
HF 420 
JN 430 

KJ 440 
FA 450 
CP 460 
IA 470 

KB 480 
MI 490 
LN 500 
EE 510 
EF 520 
EK 530 

GF 540 
PN 550 
10 560 

EL 570 

LP 580 
HL 590 


DATA 0,31,59,90,120,151,181,212,243,273 
,304,334 
GOTO 720 

REM ** CALCULATE LST ** 

SETCOLOR 2,6,4 
POKE 752,0 

? "(CLEAR}(DOWN>Input Month,Day,Year ( i 

■e.,12,7,78)":INPUT MO,DA,YR 

YEAR=YR+1900 

GOSUB 1100 

N=N(MO)+DA 

? *' C 2 DOWN > UNIVERSAL TIME ( UT) of Event 

(Hr. ,Min ) ” 

INPUT T1 ,T 2 
T=T1+(T2/60) 

? ” f 2 DOWN >Input your Longitude (Deg,Mi 

n . ) " 

? "CDOWN}JAX, FL = 81, 39.74" 

? :INPUT LI,L2 

L=L1+(L2/60) 

LST=K+(0.0657*N)+(1.0027*T)-(L/15> 

IF LST >24 THEN LST=LST-24 
REM ** CAL. ALT & AZIM ** 

7 " f 2 DOWN) Input R.A. of Object (Hr,Min 

) ": INPUT R1 ,R 2 
RA=R1+(R2/60) 

HA=LST—RA 
HA=HAt15 

? "CCLEAR}(2 DOWN>Input your Latitude ( 

Deg,Min)" 

? " f DOWN]-J AX , FL = 30, 19.75" 

INPUT L1 ,L 2 
L=L1+(L2/60) 

? " f 2 DOWN}Declination of Object (Deg,M 

in) "s INPUT D1 , D 2 
DEC=D1+(D2/60) 

REM ** CONVERT ALL TO RADIANS ** 

HA=HAtRADIAN 

L=L*RADIAN 

DEC = DEC*RADI AN 

Y=(SIN(DEC)*SIN(L))+<COS(DEC)*COS (L)*CO 
S (HA) ) 

E=ATN(Y/SQR(1-Y"2)) 

AL T = E 

Y=(SIN(DEC)—SIN(L)tSIN(E))/(COS(L)*COS( 
E) ) 

IF Y < 0 THEN AZ = 3. 1415927 + ATN (SQR ( 1-Y^2) 

/Y):GOTO 590 
A Z = ATN(SQR( l-Y'2) /Y) 

REM ** CONVERT BACK TO DEG 
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GL 600 ALT = ALT * DEGREE 
OA610 AZ=AZ*DEGREE 

LP 620 IF SGN(HA)=1 THEN AZ = 360-AZ 

KK 630 REM ** PRINT OUT ** 

PJ 640 SETCOLOR 2,7,3 

HE 650 ? "{CLEAR}{DOWN}** HORIZON COORDINATES 

* * •' 

AF 660 ? "{2 DOWN} DATE : n ; DA , MO , YR+1 900 

DJ 67 0 T=INT<T*100)/100 

GG 680 ? " (DOWN}UT= " ; T ; " HR' s ” 

HO 690 ? ” {3 DOWN} Altitude of o b j e c t = 11 ; INT (AL 

T*100>/100;" Deg.” 

AG 700 ? ” {3 DOWN} Azimuth of Ob ject= " ; INT ( AZ * 

100)/100;" Deg." 

JC710 GOTO 1000 

LD 720 REM ** START ** 

PG 730 SETCOLOR 2,3,4 
MF 740 POKE 752, 1 

KP 75 0 ? " {CLEAR} {DOWN}** HORIZON COORDINATES 
CALCULATOR * *" 

FI 760 ? " {3 DOWN} 1 . Cal. Altitude & Azimuth" 

DO 770 ? "2. Cal. Angle of Rising Object” 

LC 780 ? ”3. Cal. Angle of Setting Object” 

LP 790 ? "{2 DOWN} Input one of above." 

DJ 800 GET # 1 , A: IF A<49 OR A>51 THEN 800 

NG810 IF A = 4 9 THEN 220 

JG 820 IF A = 51 THEN SET=1 

DI 830 REM * CAL. ANGLE * 

MF 840 POKE 752,0 

GK 850 SETCOLOR 2,13,4:7 "{CLEAR} {2 DOWN} Input 
your Latitude (Deg,Min)" 

HH 860 ? ” {DOWN} JAX , FL. is 30, 19.75" 

HP 870 ? : INPUT L 1 , L2 

DF 880 L = L l+(L2/60) 

NF 890 ? "{3 DOWN} Input Object's Declination ( 

D, M) ": INPUT Dl ,D2 
JO 900 DEC = D 1 + (D2/60) 

El 910 L = L*RADI AN 
EJ 920 DEC = DEC*RADI AN 
OK 9 30 Y = SIN(DEC) /COS(L) 

LD 940 AN = ATN ( Y/SOR ( 1-Y A 2 ) ) 

HP 950 AN = AN* DEGREE 

OK 960 IF SGN (AN) = — 1 THEN AN = ABS ( AN) +90: GOTO 9 
80 

JB 970 AN = 90 —AN 

PP 980 IF SET= 1 THEN AN = ABS ( AN) +180 

FE 990 7 "{2 DOWN} Ob j ec t ' s Azimuth Angle= "; IN 

T <AN*100) /100; " DEG. " 

KN 1000 REM ** AGAIN ** 

OH 1010 POKE 752, 1 
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BP 1020 
8F 1030 
GH 1040 
HC 1050 
HE 1060 
PB 1070 
EK 1080 
KB 1090 
OP 1100 
HD 1110 
IL 1120 
FH 1130 
ON 1140 
JI 1150 
AI 1160 
HB 1170 
PI 1180 
AC 1190 
JA 1200 
OF 12 10 
FH 1 220 
KG 1230 


? "DOWN)Another calculation?" 

GET #1,A 

IF A = 89 THEN RUN 

IF A = 78 THEN GOTO 1070 

GOTO 1030 

POKE 752,0 

GRAPHICS 0 

END 

REM ** JULIAN DAY ** 

A=I NT ( (7*YEAR) /4) 

B=<367*YEAR>—A+30 
MJD=B—678987+0.5 
JD=MJD+2400000 
Jl=JD-2415020 
T = J1/36525 

J2 = 8640184.54*T + 0.0929*T''2 

J 3 = J 2/3600 

J 3 = J 3 + 6.6460656 

J4=J3/24 

J5=J4—INT(J4) 

K = J5*24 
RETURN 
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Invisible Music 

Paul Gentieu 


Using the simple routine described here, you can add 
sophisticated music to your BASIC programs—without 
affecting execution speed. 

If you've written a program that includes music, you probably 
noticed that playing that music requires quite a bit of process¬ 
ing time. The reason is simple: The sound registers must be 
constantly updated. As a result, it is difficult to do any com¬ 
plex calculations or graphics manipulations while your music 
routine is playing. 

Having run into this problem, I decided to write a small 
machine language routine that plays music "in the back¬ 
ground." That music is invisible, as far as BASIC is concerned, 
and it frees your program to do more important things. It can 
be of great value, particularly in games or other applications 
where it would be nice to add music without affecting execu¬ 
tion speed. 

This routine interfaces with BASIC via the USR function. 
Simply make one call to the routine and forget it. The tune 
will immediately begin playing and will not affect the execu¬ 
tion speed of any BASIC program. You can use up to four 
voices. 

Once you have decided how many voices you want, POKE 
the audio control registers (53761, 53763, 53765, and 53767) 
with 160 for a pure tone plus the volume (from 1 to 15) that you 
wish to use. The voice parameter is passed to machine language, 
along with the address of the string holding your music data, 
by the statement A = USR(1536,ADR(A$),VOICES). When set¬ 
ting up the string, the first number is the duration; it is fol¬ 
lowed by the notes themselves. The table gives a listing of 
note values. 

An example is helpful. A typical statement might be 
A = USR(1536,ADR (A$),2). In this case, the string A$ would 
be made up of a duration value, then the values for two notes 
to be played simultaneously, then another duration, then two 
more notes, and so on. 

The duration is measured in sixtieths of a second. Since a 
string can hold only individual values from 0 to 255, the dura¬ 
tion can range from 1/60 second to 4-1/4 seconds. That 
should be a wide enough range for most applications. Note 
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that when you use a zero for the duration, the routine will 
start the music over from the beginning. 


Note Values 

Note 

Value 

High notes 

C 

29 


B 

31 


A# 

33 


A 

35 


G 

40 


F# 

42 


F 

45 


E 

47 


D# 

50 


D 

53 


C# 

57 


c 

60 


B 

64 


A# 

68 


A 

72 


G# 

76 


G 

81 


F# 

85 


F 

91 


E 

96 


D# 

102 


D 

108 


C# 

114 

Middle C 

c 

121 


B 

128 


A# 

136 


A 

144 


G# 

153 


G 

162 


F# 

173 


F 

182 


E 

193 


D# 

204 


D 

217 


C# 

230 

Low Notes 

c 

243 
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modified to work on strings of any length, but 256 bytes 
should be enough for most tunes. 

Caution 

One thing to watch for: When the routine is running (and it 
will continue to run if you press the BREAK key to stop the 
program), you should not type in any program lines or cause 
the program to modify itself in any way. Nor should you type 
in anything in immediate mode, as that may cause the string 
holding the music to be moved around in memory and result 
in incorrect notes. 

A Simple Example 

A sample BASIC program with a demonstration tune is in¬ 
cluded to show just how easy the routine is to set up and use. 

The routine works using the interrupt generated by the 
second system software timer. 1 chose to use the timer inter¬ 
rupt over the vertical blank because the music routine is short 
and many excellent utilities already use the vertical blank 
interrupt. The second timer is one of two that generate inter¬ 
rupts. Timer 1 was not used, because it is used to time 
input/output and serial bus events. 

Duration is very easily implemented using timers. The 
second timer is started by storing a clock value in $21A (the 
timer 2 value address). This value is decremented during each 
vertical blank interrupt (once every 1/60 second). Once the 
timer hits zero, the computer interrupts what it is doing and 
performs an indirect JSR through $228 and $229 (the timer 2 
interrupt vector). 

The music routine is set up by placing its beginning ad¬ 
dress in these vector locations. Once that's done and the timer 
has been started, the routine will execute without slowing 
down BASIC operations. To implement duration, all that must 
be done is to store different clock values in $21A, controlling 
how frequently the routine is called (and how often the sound 
registers are updated). The routine ends with RTS since it was 
called with JSR. 
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Invisible Music 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 


PA 5 M= 1 

JH 10 POKE 53761,168: POKE 53763 , 1 68 : REM POKE A 
UDIO CONTROL REGISTERS WITH A PURE TONE 
AND VOLUME OF 8 

AK 20 DIM A$(256) :REM MUSIC HOLDING STRING 
PP 30 TRAP 50 

LH 40 READ D:POKE 1 536 + T , D : T = T+1 : GOTO 40:REM R 
EAD ROUTINE DATA 
CO 50 TRAP 200 

6K 60 READ D: A$ (M, M) = CHR$ (D) : M = M+1 : GOTO 60:REM 
READ MUSIC DATA 
IH 70 REM ***ROUTINE DAT A * * * 

IP 80 DATA 104, 169,0, 141,254,6, 104,133,205, 104 
,133,204,104,104,10,233,1,141,255,6,169, 
36,141,40,2,169,6,141,41,2,169 
KI 81 DATA 1, 141,26,2,96,172,25 4,6,162,0,177,2 
04,240,29,141,253,6,200,177,204,157,0,21 
0,232,232,236,255’6,48,243,240 
EB 82 DATA 241,200, 140,254,6, 173,253,6,141,26, 
2,96, 169,0, 141,254,6, 169, 10, 141,26,2,96, 


OE 90 
AE 100 


CP 101 


AK 102 


EK 103 
JA 104 


LN 105 

IB 200 
EC 2 1 0 
AK 220 


-1 

REM ***MUSIC DATA * * * 

DATA 9,81,121,9,96,143,9 
1,9,81,143,9,96,81,9,121 
,81,81,9,60, 121,9,60, 143 
DATA 9,72,121,9,91,143,9 
21,9,108,143,9,91,81,9,108,121,9, 
3,9,108,81,9,68,121,9,68,143 
DATA 9,72,81,9,68,121,9,81,143,9, 

143 , 9 , 81 , 81 , 9 , 96,1 
9,60,121,9,60,143 


121 . 81.9 
121,9,96 
9,64,81 

108.81.9 


9,121,121,9,96 
21,143,9,96,81 
DATA 9,64,81,9 
DATA 9,121,121 

121.9.72.143 
9,60,81,9,64 
DATA 81,9,47 

121.9.53.143 
REM ***START 


72 , 121 , 9 , 91 , 143 , 9 , 
9, 108, 14 3,9,91,81, 
9,91,81,9,53,121,9,5 
121,9,60,143 
121,9,60, 143 
9,64,81,9,64 
MUSIC*** 


9.81 

9.40.81 

121 , 0 ,- 


,96, 12 
, 143,9 

, 121,1 

12 1 , 14 

96,81, 

21,9,1 

108,81 
9,108, 
3,143, 

,9,40, 

1 


A = USR < 1536,ADR( A $ ) ,2) 

GOTO 220:REM YOUR PROGRAM 


HERE 


217 







Chapter 5 


Tape and Disk 
Utilities 













Chapter 5 


Atari Tape Enhancer 

Jordan Powell 


If you've ever been frustrated by the lack of file handling 
on the Atari program recorder, then the two short pro¬ 
grams described here are for you. The article also includes 
information on string handling and program compaction 
with Atari BASIC. 

Looking for files on the Atari program recorder can be a real 
chore. You can write down the file description and its location, 
but the paper could get misplaced. Loading files one after the 
other to get to the right one isn't my idea of fun either. 

Taking a lesson from the way the VIC-20 handles its tape 
files, I have written two programs to help make life easier for 
Atari tape users. You use them as follows: Start out by loading 
a tape and zeroing the tape counter, then advance the tape to 
a reading of 20 on the counter. Next, store up to six files on 
the tape, being careful to note the filename you want (up to 
16 characters), the location of the beginning of the file, and 
the command used to save the file. 

When you're done, rewind the tape and run Program 1. It 
will ask you for the name you would like to give the cassette; 
respond with a tape name of up to 16 characters (for example, 
GAME TAPE #1). The program will then ask for the names, 
locations, and commands used to save up to six files on the 
tape. You respond with the filename, tape counter reading for 
the beginning of the file, and the first letter of the command 
used to save the file. If you have less than six files, respond to 
the filename prompt after the last file by pressing ESCape 
twice followed by RETURN. The program will stop prompting 
you and store what I call the system tape file on the cassette. 

It contains the information you just typed in, and all the infor¬ 
mation you need to locate and load all of the files on the tape 
is safely stored on the cassette itself. 

Program 2 reads the system file, writes a menu to the 
screen, and asks you to select the number of the file you want 
to load. After you select the appropriate file, it tells you the 
counter reading at which it will be found. Advance the tape to 
that location and press RETURN to load the file. If you make 
a mistake locating the file, the program gives you another 
chance. 
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Atari Strings 

The key to these programs lies in an understanding of Atari 
BASIC string handling. A string is a sequence of one or more 
characters. In statement 40 of Program 1, the dimension state¬ 
ment defines the string variables used in the program. CBUF$ 
is the string variable which will be put into the cassette buffer 
and subsequently written to the tape. The cassette buffer is an 
area in RAM from which the Atari writes to the program 
recorder. 

The rest of the string variables will hold inputs from the 
keyboard. As filenames, locations, and commands are entered, 
they are added to CBUF$ one after the other. S is used as a 
space-saving measure. Every time a constant is used in Atari 
BASIC, it takes up seven bytes. Using a variable causes it to 
be stored once when it is defined, and all other references take 
up only one byte. 

Adding characters to CBUF$ as in line 110 is done by 
using the following form of expression: CBUF$(start,end) = 
TN$, where start and end are the starting and ending po¬ 
sitions in the string CBUF$. TN$ contains the character string 
to be placed into CBUF$ at the positions indicated by start and 
end. By manipulating the starting and ending positions of data 
within CBUF$, the string is filled with file data one piece at a 
time. With this explanation and the Atari BASIC reference 
manual you should be able to decipher the rest of the 
program. 

To speed up the loading of these programs, you can make 
them smaller so there is less to load. This can be done by 
removing REM statements, substituting variables for constants 
as explained above, putting two lines of code on one logical 
line (a logical line is one starting with a line number) sepa¬ 
rated by colons, and by substituting ? for the word PRINT in 
PRINT statements. 


Program 1. Tape File Maker 

For error-free program entry , read "The Automatic Proofreader " in Chapter 1 before typing 
in this program. 


AI 10 
KH 20 
HL 30 
LO 40 

JN 50 


ICREflTE SYSTEM TAPE FILI 


EFIHE URRIRBLESRHP CQK5TRNTSI 


REM 

^RINT (CLEAR) 

REM G 

OIM CBUF$ (128) ,FN$ (12) ,CT$ (3) ,TN$ (16) 
M1):S=16 
REM 


IFILL CR5SETTE BUFFER HITH BLANKS 


SM 
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CG 60 
BN 70 
CD 80 
LP 90 
GH 100 
NK 1 10 
GF 120 
BA 130 
DP 140 
NO 150 
J6 160 


BA 170 
NA 180 
HF 190 

IG 200 
PO 210 
BJ 220 
NP 230 
OK 240 
OL 250 
CF 260 
AN 270 
CJ 280 
MO 290 
IN 300 
PE 310 


PUT TAPE LABEL INTO BUFFER! 


THPU^HFQRMflnQN FOR UP TO 8 F 7 


FOR N=1 TO 128:C B U F $ < N ,N)= M ":NEXT N 
REM ! 

PRINT "INPUT TAPE NAME(16 CHARS MAX)" 
INPUT TN$ 

REM | 

CBUF$(1,S)=TN$ 

REM 

FOR N =1 TO 6 

PRINT "INPUT FILE ";N;" NAME" 

INPUT FN$ 

IF FN$(1, 1)="CESC3" THEN GOTO 270:REM 
{ T 3 WHEN ESCAPE HIT WE ARE DONE ENTERIN 
G FILE INFO 
REM 

CBUF$(N*S+1,N*S+13)=FN$ 

PRINT "TAPE COUNTER READING FOR THIS FI 
LE? (3 DIGITS)" 

INPUT CT*: CBUF$(N*S+13,N*S+15)=CT$ 

REM r;^ (6 SEEESa* 
PRINT "WHICH COMMAND USED TO SAVE ?" 
PRINT "CSAVE/SAVE C/LIST C - < C , S , L > " 
INPUT SM$ 

CBUF$(N<S+S,N * S + S )=SM$ 

NEXT N 

REM H 'Y-ki M =\Z W =* * ■ =» <»■»?:'>■•« =mi 

PRINT "PRESS PLAY/RECORD-RETURN" 

OPEN #1,8,0, "C: " 

PRINT "WRITING SYSTEM FILE" 

PRINT #1;CBUF$ 


IWRITE SYSTEM FILE TO CR55ETTS 


Program 2. Tape File Reader 


LP 10 REM DISPLAY SYSTEM TAPE FILE MENU 
AJ 20 PRINT " (CLEAR) " : REM C T 3 CLEAR SCREEN 
HL 30 REM 

LO 4 0 DIM CBUF$ ( 128) , FN$ ( 12) , CT$ (3) , TN$ < 16) , SM 
$ <1) :S=16 
BH 50 REM i 

00 60 PRINT "PRESS PLAY THEN HIT RETURN" 

JG 70 OPEN #1,4,0, "C: " 

AA 80 REM | * _ 

Cl 90 FOR N= 1 TO 128: CBUF$ < N , N) =" ”:NEXT NsREM 


OPENCASSETTE 


BUFFER WITH BLANKS! 


READ IN RND PRINT TAPE LABEL TO THE SCI 


FN 100 PRINT ” (CLEAR} ” ; "READ I NS SYSTEM FILE" 
HN110 INPUT # 1 ; CBUFt: PRINT " {CLEAR} " 

NN 120 PRINT CBUFt (1, 15) : PRI NT : REM CT> SPACE 

LH 130 REM \ ~~ _ 

BB 140 FDR N= 1 TO 6 


IPRXNT FILE MENU ON SCREEN 
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HN 150 
AG 160 
OH 170 
NJ 180 
CH 190 
BP 200 
EL 210 
BI 220 

HD 230 
HN 240 
AG 250 
HB 260 
61 270 
KN 280 
DP 290 
DK 300 
NA 310 
EG 320 
HJ 330 
NG 340 
EE 350 

GN 360 


ii 


ii 


SM$ 


FN$=CBUF$(N*S+1,N*S+13) 
CT$=CBUF$(N*S+13,N*S+15) 

SM* = CBUF$ <N*S+S, N*S+S> 

PRINT N; M ";FN*3" ";CT*; 

PRINT 
NEXT N 

REM raTTilSl s* m JiT:» -J rWHTTilSa !»■ =1 «»I:T?ra?! 
PRINT SPRINT "ENTER NUMBER OF PGM YOU W 
ANT RUN" 

INPUT N 

FN$=CBUF$<N*S+1,N*S+13) 

CT $ = CBUF$(N*S+13,N*S+15) 

PRINT "ADVANCE TAPE TO "jCT*;" FEET" 
TRAP 350 

REM 1 =ti» 4 Jg l SUM 5 MrfilSISM 7 1 gils TgMgli 

IF CBUF$(N*S + S,N*S + S)= ,, C" THEN GOTO 330 
IF CBUF$<N*S+S,N*S+S)="E" THEN GOTO 340 
REM I^TsTtMsJrlilHrlslS 
LOAD "C:"SPRINT "HIT RETURN" 


CLOAD SPRINT "HIT 
ENTER "Cs" 

PRINT "REPOSITION 
AND RETRY" 

GOTO 290 


RETURN 


■I 


TAPE TO "sCT$!" FEET 
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Disk Catalog Utility 

Andrew Genser 


For many computer users, one of the most time-consuming 
tasks is searching through disks to find a particular pro¬ 
gram. This program gives you an alternative. 

Wouldn't it be nice if you could have an index of all your 
disks, stored on one disk? That way, you would never have to 
switch disks—and with a few enhancements like a search 
capability and printout, you would have an extremely useful 
utility. 

The problem with many disk cataloging systems is that 
they do much more than is really necessary. The time spent in 
keeping one up-to-date usually negates its usefulness. Thus, 
many home computer users end up with a list of programs 
that includes all kinds of unwanted information. However, this 
disk housekeeping utility forgoes the unneeded frills to make 
it much simpler to keep track of your disks. 

One Large Directory 

"Disk Catalog Utility" (DCU) is really just a mass directory. It 
creates separate files, on one designated catalog disk, of all 
your disks' directories. This means that you can get a directory 
of any disk without going to DOS and switching disks around. 

Three other features make DCU even more useful. First, 
you have the option of doing a disk directory of all of your 
disks, one of your disks, or all disks in a certain range. Sec¬ 
ond, DCU makes full use of Atari's wild card. This is a symbol 
in the filename of a program that allows you to view every¬ 
thing with a specified string in its name. For example, if you 
want to see files ending with the letters .LST, type *.LST in re¬ 
sponse to the prompt. The asterisk is the most common wild 
card symbol, but you may choose your own when using DCU. 

A file specification doesn't have to have a wild card. If 
you know exactly which filename you are looking for, type 
that in, and DCU will identify all the disks that contain that 
filename. 

Finally, for those who own a printer, DCU will also give 
you a hard copy of the directory catalog. It channels whatever 
is printed on the screen directly to your printer, using the 
LPRINT statement. 
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Creating the Directory 

First, you must number each disk, starting with disk number 
1. Using a felt-tip pen, write the disk number on the label (not 
on the disk cover). 

Then run the program. You'll be asked to specify the de¬ 
sired wild card symbol. If you hit return, DCU will automati¬ 
cally use the asterisk (*) as your wild card. 

At that point, you are ready to catalog your disks. Run 
DCU, and type C for catalog disk. You will be asked which 
disk you want to be cataloged. Type in the appropriate num¬ 
ber and press RETURN. Then insert disk number one and 
press RETURN. DCU will read in the directory of disk 1. Then 
insert the data disk (the disk with DCU and all of your DCU 
files on it) and press RETURN. DCU will then save that disk's 
directory as a data file called DISKI. 

Repeat this procedure until all of your disks have been 
cataloged. Be sure to type in the correct disk number when 
cataloging. 

Searching for a File 

To get a complete directory, type D to get to the directory 
mode; then insert the data disk and press RETURN. You will 
then have several options. If you have a printer and want a 
printout of your directories, type Y when asked if you want a 
printout. If you don't have a printer, press N (or just hit RE¬ 
TURN, and DCU will default to nonprintout). 

Next, you will be asked if you want to search a particular 
range of disks. Type Y to specify a range. For example, if you 
type Y followed by 3,8 then DCU will search through direc¬ 
tories 3, 4, 5, 6, 7, and 8 for whatever filename you specify. If 
you want DCU to start with disk 1 and go on until it can't 
find any more files, simply press RETURN. 

You can also specify the file spec (name of the file) you 
are looking for. This is where you use the wild card symbol. 
Type in your chosen file spec; alternately, hit RETURN to dis¬ 
play all files from the specified disk range. DCU will display 
each disk number as it searches, followed by all files that 
match the file spec. When DCU has searched through all cat¬ 
alogs, or has finished the specified range, it will display the 
number of files found and RETURN you to the main screen. 
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Disk Catalog Utility 

For error-free program, read "The Automatic Proofreader" in Chapter 1 before typing in 
this program. 


HO 10 GRAPHICS 0 : SET COLOR 2, 1 2,4 : SETCOLOR 1,0, 
15:DIM D(1000) ,SPEC$ (17) ,F$(17) ,FN$ (15) : 
DSK = 1 

JN 15 OPEN #1,4,0, "K: " 

00 17?” DISK CATALOG UTILITY 
":? "WILDCARD symbol ?”:GET #1,WILD:IF W 
IL D=155 THEN WILD=ASC<"*") 

AO 19 FOR 1 = 1 TO 38:? CHR$ (WILD) ; : NEXT I 
ID 20 CLOSE #2:? :? "DISK CATALOG UTILITY CDCU 

3":? "BY ANDREW GENSER":? :? "SATALOG DI 
SK" : ? 

BH 22 ? "El RECTORY " 


AF 40 


EH 50 
IF 60 
CG 65 

IJ 70 


i> 


Your choicer 


H" :GET #1, 
C" AND CHR$(K)<>"D" THEN 
CBELL3D OR C":GOTO 40 
IF CHR$ < K)="C" THEN 3000 
REM 


DIRECTORY FUHCTIO 


K 


IF CHR$(K)<> 
" (CLEAR} 


? "(CLEAR}(DOWN}CDCUD DI 

ETCOLOR 2,15,4 
? "Insert data disk,then 


RECTORY":FLS=0:S 


hit 


RETUR 


- ii 


: GET 


# 1 , K 


AF75 ? "Screen output to printer (y/n)" : GET # 

1,K: IF CHR$(K)="Y" THEN FLAG=1 :GOTO 80 

PF 77 FLAG = 0 

HN 80 ? "Disk range specs (y/n) " : GET # 1 , K : I F C 

HR$(K)="Y" THEN ? "Disk range :INPUT S 

TART,EN:GOTO 100 
IM 90 ST ART = 1 : EN = 99999 

JD100 ? "File spec " ; : INPUT SPECS 

DL 105 IF SPEC$ = " ” THEN SPECS<1)=CHRS<WILD):SP 
ECS(2)=".”:SPECS(3)=CHRS(WILD) 

EL 110 FS = SPECS : SPECS ( 1,2 ) = " " : SPECS ( 3 ) =FS : FS 


FN 120 
HN 130 
YM 140 


BD 150 
LN 152 
PY 155 

HL 160 

PI 170 
DO 180 


FOR DSK=START TO EN 

FNS="D:DISK":FNS(7)=STRS(DSK) 

TRAP 605 : OPEN #2,4,0, FNS:? " {BELLI-Di sk 
";DSK:TRAP 605:IF FLAG THEN LPRINT "DIS 
K " ; DSK 

INPUT #2;FS:1=3 


FILENAME COMPORTS OH/5EftRC 


IF FS < 1 , 1 ) < >" " AND FS <1,1 )<>»*» THEN 6 

00 

IF ASC (SPECS ( I , I ) )=WILD THEN I = I + l:GOTO 
500 

IF SPECS<I,I)=»." THEN 500 
IF SPECS<I,I><>FS<I,I) THEN 150 
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IvJ 200 

CO 21 0 
GH 215 
HK 499 
IA 500 
NK 5 1 0 
EC 5 
P3 5 


20 

30 


DE 54 0 
GK 54 2 
JP 600 
NJ 605 

DC 61 0 
EC 2999 
IA 3000 


IF I<LEN(SPECS) THEN I=I+1:60T0 160 

FLS = FLS+1 s ? F$: IF FLAG THEN LPRINT FS 
GOTO 150 

REM I=I:T!■ : W Jg» 4Z fa 
1 = 14-1 : L = LEN (F$) -6 

IF ASC(SPECS(I,I))=WILD THEN 210 
IF SPECS(I,I)<>FS(L,L) THEN 150 
IF I<LEN(SPECS) THEN 1=1+1:L=L+1:GOTO 5 
1 0 

FLS = FLS+1 : ? FS: IF FLAG THEN LPRINT FS 
GOTO 150 

? FS:CLOSE #2:NEXT DSK 

? :? FLS;" Filets) found":IF FLAG THEN 

LPRINT :LPRINT FLS;" Filets) found” 

GOTO 20 

rem jr:T*iicid»j ;iwswurr 

(CLEAR*":SETCOLOR 2, 1,4:SETCOLOR 1 , 


LC 30 1 5 
HA 3020 

HB 3045 
KN 30 50 
HA 
OG 


3052 

3500 


>:i 


O .-J 


05 


ii 


0 , 1 


•I 


CDCU3CATALOG”:7 


n 

m O 


II 


DISK # TO 


BE CATALOGED ";:INPUT DSK 
FNS="D:DISK":FNS(7)=STRS(DSK) 


"INSERT DISK 

CT" : GET # 1 , A 


#" ; 


i» 


THEN PRE 


RETUR 


6,0„"D:*.*":I=0 


# 2 , K 


050 


. DSK 
SS 

OPEN 

TRAP 3500:GET 
D(I)=K:1=1+1:GOTO 
D(1+1)=0:CLOSE #2:7 :? "INSERT DATA 

SK-HIT RETURN":GET #l,A:OPEN #2,8,0 
S: 1=0 

TRAP 3600:7 CHRS(D(I));:PUT #2„D(I) 
1 + 1 


D I 
FN 

I = 


JL 35 10 IF D ( I ) =0 THEN 3600 
HE 3515 GOTO 3505 

HH 3600 7 "CATALOG COMPLETE (BELLI ": CLOSE #2:G0 
TO 20 
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Diskovery 

John C. Waugh 


Would you like to know what's really hidden beneath the 
dull brown exterior of your disks? “Diskovery" will help you 
find out. Requires a disk drive and Atari DOS 2.OS. 

What's on an Atari disk? One way to find out is to use the 
DOS directory. That won't tell you much, though, just names, 
lengths, and free sectors. And it won't tell you anything if it's 
not a DOS-made disk. To really find out what's on it, you'll 
have to diskover it—and this program will give you the tools 
you need. It will provide you with the ability to change disk 
memory directly. 

Be careful using this program. Be sure to have a backup of 
any important programs on another disk before trying the ex¬ 
amples in this article. 

The Problem 

The problem was simple to begin with. A friend had brought 
me a disk with a problem: There were two versions of a pro¬ 
gram on it, but both had the same name. Both appeared on 
the DOS directory listing, although with different lengths. 
COPY and LOAD would get only the first and older version 
of the two. And even the rename option of DOS would re¬ 
name both programs simultaneously, to the same new name. 
We didn't try the delete file option, for fear of losing both. So, 
knowing something about Atari's direct disk access, I wrote a 
short and simple program to fix the problem. That was the 
kernel from which the current program grew. 

Atari DOS accesses disks a sector at a time. However, that 
can also be done independently of DOS by setting up certain 
pointers in the disk control block (DCB) section of memory 
and calling the operating system (OS) to do the dirty work. 

The DCB and OS do not need the DOS loaded in with this 
method. Look at lines 8010 to 8100 in the program. This is the 
subroutine to do direct disk access. Here's how it works. 

A buffer area must be set up to hold the contents read 
from a disk sector, or to be written to a disk sector. This buffer 
should be 128 bytes long since there are 128 bytes per sector. 
BUF$ is used in this program. Line 8010 identifies the begin¬ 
ning of the DCB, which occupies memory locations 768-779. 
POKEing a 1 into the second byte (BLK+1) specifies access to 
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drive 1. The variable FUN in line 8020 is set by the calling 
routine; 82 decimal means a read sector command, and 87 will 
cause a sector to be written to the disk. 

In order to read into the buffer, or write from it, the ad¬ 
dress of the buffer area must be placed in BLK + 4 and BLK + 5 
in low byte/high byte format. This means that BLK + 5 will 
contain the high part of the address, the number of times that 
256 will go into the address. This is expressed as 
INT(ADR(BUF$)/256). BLK + 4 should have the low part of the 
address, the remainder from division by 256, given by 
ADR(BUF$) —256*(high part). This low byte/high byte ad¬ 
dress format is standard on the Atari and other 6502-based 
microcomputers. 

Next, the sector number to be accessed must be broken 
up into low/high form and placed in BLK + 10 and BLK + 11. 
The sectors are numbered from 1 to 720. Some of the sectors 
are used for the directory, boot-up, and so on, so DOS will 
show only 707 free sectors on an empty disk, although all sec¬ 
tors can be accessed with this program. 

Now it's time to call the operating system. Located at 
hexadecimal address $E453 (decimal 58451) is the subroutine 
that will either write the buffer to the specified disk sector or 
read the sector contents into the buffer. To call this subroutine 
you need to do an assembly language JSR, so a short machine 
language routine is in order. Line 8080 initiates the short ma¬ 
chine language program that was put in DSKINV$ by lines 
205 and 210. Essentially all this does is JSR to $E453, then re¬ 
turn to BASIC with an RTS. After return, if there was a prob¬ 
lem reading or writing a sector, an error code is placed in 
BLK + 3 (the value 1 indicates no error). Line 8080 also puts 
this code in the variable NR for use in lines 8086 and 8090. 

Looking at the Disk 

Now that you know how direct disk access can be achieved, 
look at the main program. When you have the program entered, 
save it before running it. Put into your drive a disk that has a 
lot of varied DOS files on it—perhaps an AUTORUN.SYS, a 
machine language object program, a LIST/ENTER program, 
and some SAVE/LOAD programs. Of course the DOS.SYS 
and DUP.SYS files themselves would be nice to look at too. 

Run the program, and a menu will appear. Push the SE¬ 
LECT button. If all is well, you should be able to toggle the 
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screen background between normal blue and green (or blue 
and darker blue, depending on your TV). When the screen is 
green (or darker blue), whatever is on the screen will be 
dumped to a printer, assuming that a printer is on-line. At any 
point in the program run, regardless of what it is doing, you 
can toggle between printing and nonprinting modes. That will 
not interrupt a screen dump already in progress, but any nor¬ 
mal keyboard key will. The toggle is done using a vertical 
blank interrupt. More on that later. 

Select a normal blue screen (for nonprinting) for now. 
Choose option 2 and press RETURN. This option allows you 
to look at the contents of a sector in a special way; the pro¬ 
gram will assume that you are looking at one of the sectors 
from 361 to 368, and will display the data accordingly. In re¬ 
sponse to the sector number prompt, enter 361, to look at the 
first directory sector. You will hear the beep from the TV 
speaker as the sector is read, and then the bytes in the sector 
are displayed as characters on the screen. Directory sectors are 
arranged in sets of 16 bytes, each set being the information 
about one file listed in the DOS directory. Probably DOS.SYS 
and DUP.SYS will be among those shown on your screen. 

DOS refers to programs or file entries by number, the first 
one being 0 up to a maximum of 64 files (note that the maxi¬ 
mum file number is thus 63). The display is arranged in 8 
lines of 16 bytes each, so that each directory entry appears on 
a separate line. Notice the first byte of a typical directory en¬ 
try. An uppercase B indicates a normal file that is ready to 
use, so a first byte of 66 (the ATASCII value for B) tells DOS 
that this file is OK and ready to go. A locked file has bit 5 of 
the first byte set (a 1, or on bit); locked files will appear on the 
directory dump as a lowercase b. If bit 7, the topmost bit, of 
the first byte is set, then the file is considered deleted from the 
directory by DOS. Its directory space is up for grabs, and will 
be overwritten by the next new file saved on the disk. If a file 
has been deleted using the D option of DOS, as long as no 
new files have been saved over its directory entry, the file can 
be undeleted and gotten back. 

Undeleting 

Let's try an example of that, to see if you've really entered the 
program without any errors. Write some dummy program, like 
10 REM, and save it on disk. Go to DOS and list the directory. 
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Now use the D option to delete the dummy file; a directory 
listing will no longer show it. Go back to BASIC and load in 
the "Diskovery" program. Run it, and choose option 2 again. 
Look at sector 361. If there are many files on the disk, you 
may have to look at more sectors, perhaps up to sector 368, to 
see the dummy program; by pressing RETURN a couple of 
times, you'll get back to the main menu to select the next sec¬ 
tor. Do this until you find the sector with the dummy pro¬ 
gram—it will show up even though it was deleted. 

Now press RETURN once more to get the change sector? 
prompt. Answer Y, then type C for the next prompt, so you 
can insert bytes into the sector as characters rather than as 
numbers. Type 1 for the number of characters to change. For 
the starting byte prompt, determine which byte is the first one 
in the dummy file. This will be an inverse heart (CHR$(128)) 
indicating a deleted file. The byte number range for each entry 
is given on the left side of the screen. 

Enter the number of the starting byte. The program will 
ask for one character to insert. Type a B, then type Y for the 
next prompt, to actually carry out the change. You will hear a 
clunk sound as the modified sector is written out to the disk, 
and a beep as it is read back in and redisplayed. There should 
be a B as the first byte of the dummy file entry. The dummy 
has been undeleted. To check, try loading the dummy, or go 
back to DOS and look at a directory listing. 

Protecting the File 

Although the dummy file is now available for loading and 
saving, its sectors have not been protected in the usual DOS 
way. Thus, future programs might save over them. To protect 
it for now, save it under a new name (or under the same 
name). DOS will mark the sectors as in use. 

A similar method was used to solve the original problem 
that led to this program. Two files had exactly the same direc¬ 
tory name, so I simply modified the name of the first to be 
different from the second. That way, DOS would recognize 
them as different files. Voila! The lost file was recovered. 

Invisible Files 

As you can see in the directory, the filename extender is sim¬ 
ply the characters in the last three spaces allocated for the file 
entry. You can change the characters in a filename with 
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interesting results. For example, run option 2 again and choose 
the change sector option. Choose N this time, for inserting 
numbers. Type 1 to insert just one number. Now use the 
dummy file again, and use one of the bytes in its name for the 
byte to change. Change it to value 125, then type Y to modify 
the sector. ATASCII value 125 is the clear screen character, 
displayed in the sector dump as a bent arrow. If you were to 
go to DOS and request a disk directory now, when the 
dummy filename goes on the screen, it would clear the screen. 

You can't load the dummy file with this modified name 
because CHR$(125) isn't a legal filename character. However, 
DOS will not consider the dummy file sectors to be available, 
so they are protected from being overwritten. You have cre¬ 
ated a file that cannot be loaded or run without modification 
of its name. With the proper choice of control characters (for 
instance, CTRL-back arrow), you can name a file so it doesn't 
appear on the listing at all. 

Here's something else to try. Make another short dummy 
and save it as the first program on a blank formatted disk. 
Then save a few more programs (or copies of the dummy) un¬ 
der other names. Run the Diskovery program, use option 2 to 
look at sector 361, and use the change option with number 
insertion eight times to insert the following numbers at the 
beginning of the dummy file entry area (start at the beginning, 
not at the filename): 66,1,0,4,0.88,156,155. Then change the 
remaining eight bytes of that directory entry to spaces. You 
can use the number insertion option, with multiple-byte inser¬ 
tion, since they are all the same number. The number 32 
represents the ATASCII character for blank space. 

Now to the DOS. List the directory; nothing appears at 
all. You can still load, run, and save programs normally—but 
only if you know the right names. 

If you've followed all this, you might wonder why, when 
the sector contents are displayed onscreen, the CHR$(125) is 
displayed as a bent arrow, rather than clearing the screen. 

There is a POKE to make the computer display command 
characters instead of performing their commands. It is found 
in line 1047 (POKE 766,1). POKE 766,0 will return you to the 
normal mode. Try POKE 766,1 in direct mode and try editing 
the screen with the CTRL arrows. 

Using option 2, directory dumps also show more infor¬ 
mation about a file. Stored in the bytes between the first byte 
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and the first name byte are four bytes that contain the starting 
sector number of the file and the length of the file in sectors. 
This information is stored in low/high format, as previously 
explained. With option 2, the interpretation of these bytes is 
displayed on the right side of the screen. 

Other Options 

Let's have some fun with the other options. Examine the 
directory sector that contains the DUP.SYS file entry, the Disk 
Utilities Package. Note what sector it starts with. Now go back 
to the main menu and choose option 1. Specify the sector that 
DUP.SYS starts with. Enter the choice for character dump, and 
you will see the first DUP.SYS sector displayed in character 
form. Somewhere in this sector you will see the text that is 
shown at the top of the screen when DOS gets control. Using 
the sector-changing options, you could put in your own string 
of characters so that whenever you go to DOS, your own cus¬ 
tomized message would be displayed. 

Also note that the computer beeps several times during 
the display. This is because there are several bytes in the file 
with value 155, the code for the RETURN key being pressed. 
These have no character representation, even with POKE 
766,1, so they would normally disrupt the screen display with 
line returns. To avoid this, the program detects them, beeps 
the speaker to let you know about them, and puts an inverse 
asterisk onscreen to mark their location. This is done by line 
1067. It is necessary to POKE 766 back to normal to get the 
computer to beep, then POKE 766 again to display control 
characters for the rest of the dump. 

Each sector on the disk is 128 bytes long. However, if the 
sector has been filled by the Atari DOS, only 125 of those sec¬ 
tors are used for actual data in the file. The other three bytes 
contain housekeeping information. Byte 126 has, in six of its 
bits, the file number that the sector is associated with. Thus all 
sectors that are a part of the second directory entry file will 
have the number 1 (remember that file references start at file 
0, not file 1). 

Stored in the other two bits of byte 126, and in eight bits 
of byte 127, is the forward pointer. This tells which sector is 
next in line in that particular DOS file. Sectors associated with 
a certain DOS entry do not have to be next to each other 
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(contiguous) on the disk. Each one contains a reference to the 
next one in line. We'll see an example of that in a moment. 

Byte 128 contains a count of how many bytes are unused 
in that sector. Thus, if a sector is the last one in a particular 
file, it may not be full. DOS needs to know how many bytes 
are unused, so it doesn't load the remaining garbage into the 
computer as part of the file. Bytes 125-128, then, are used in 
this program to compute the information given at the bottom 
of the sector dumps: file number, forward pointer, and extra 
sector bytes. 

Option 3 on the main menu will automatically trace 
through a specified DOS file, sector by sector, following the 
forward pointers. Find the starting sector of the DUP.SYS file. 
Run the trace option with its first sector as the starting one. 
Now a menu appears with either auto trace or pause as an op¬ 
tion. Pause means the computer will wait for a keypress after 
each sector is displayed before going on. With auto trace , the 
sectors will go by automatically until the end of the file. If you 
have a printer on-line, each sector dump will be printed before 
going to the next one. 

For this example, choose the pause option. Choose charac¬ 
ter dump next. You will see the sectors of the DUP.SYS file 
successively displayed. Some of the information, such as the 
DOS menu, will be intelligible. Trace could also be used to 
look through stored programs. If a program has been saved, 
much of it will look like garbage since it is in tokenized form. 
However, if a program has been LISTed to disk, it will be 
readable since it is in straight ATASCII form. Looking at a 
LISTed program, you will see the regular program lines, fol¬ 
lowed by a beep, and the inverse asterisk character. This is the 
return code (155) for the return keypress after each physical 
program line. 

Option 6 will give you a table of all the sectors used by a 
given file, if you supply the starting sector. In many cases, the 
sectors will not be sequential. 

Similar to the file trace is main menu option 4. This is 
used to look at a block of contiguous sectors by inputting the 
starting sector and the number of sectors. This will not follow 
the linked list method of the trace; it will ignore forward 
pointers. 

Since DOS-created sectors all contain the number of their 


235 



Chapter 5 


associated directory entry, it is possible to make a map of the 
disk, marking each sector with the file that it is linked to. This 
is just what option 5 does. Run it, with a disk that has a lot of 
files on it and has been well used with resaving and reloading. 
It takes a few minutes to map all 720 sectors. If you have a 
printer, you might want to toggle into print mode to save a 
copy of the map for future reference. 

The file ID number of each sector is read in turn, and a 
single character is put on the map: a 0 for file 0, a 1 for file 1 
(the second entry), and so on. After file 9, uppercase alphabet 
characters are put in, A-Z, then lowercase a-z. Since there are 
64 possible filenames per disk, there could still be two files 
after z. These will be the next ATASCII characters, numbers 
123 and 124 on Appendix page C-3 in the Atari manual. Also, 
if a bad sector is found, it is displayed as an asterisk. Bad sec¬ 
tors are often used as a protection device on commercial disks. 

Most sectors on a partly full disk will probably be zeros. 
This doesn't mean they are part of file number 0—they just 
don't have anything in them. To find out which of those sec¬ 
tors are really part of file 0, use option 3 or 6. 

Since file sectors for a given program do not have to be 
contiguous, it may be that a much-modified program is spread 
all over the disk. For example, suppose you write and save 
programs A, B, and C in that order. They are stored sequen¬ 
tially on the disk, with so many sectors per file (say 10 each). 
Then you go back and modify program A, adding some lines 
so that it takes up 15 sectors. When it is saved, DOS will still 
use the first 10 sectors—but it will also take 5 more, the first 5 
available after the sectors for program C. So the file linkage 
map becomes A-B-C-A. 

Then you might modify program C to give A-B-C-A-C, 
and so on. With a heavily modified disk, programs are here, 
there, and everywhere. The sector linkage map will show this. 
All this splitting up makes the disk more prone to LOAD and 
SAVE errors, since the driver has to jump all over the disk for 
a given file. It is also slower. Duplicating the disk will still re¬ 
tain the same organization on the new one, but using the 
COPY option of DOS, with filename *.*, file sectors will all be 
placed contiguously on the new disk, making it more reliable. 
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DOS Sector Map 

Since file sectors can be dispersed on a disk, you might won¬ 
der how DOS keeps track of what sectors are in use (and thus 
should be protected from overwriting). It would be impractical 
to check all sectors for each SAVE. Instead, DOS maintains a 
sector map of the disk, updated with each new modifying op¬ 
eration. This map, a bitmap, is stored in sector 360. Thus sec¬ 
tor 360 is a special reserved sector, created during formatting. 
360 was chosen since it is near the middle of the disk, and so 
has a short average access time. That is important, since it is 
accessed during each data saving operation. 

Run main menu option 1. Type in 360 for the sector. 
Choose option 4 (which only appears for a sector 360 choice), 
a hex map of sector 360. It takes a few seconds for the conver¬ 
sion of numbers to hexadecimal, so be patient. You will then 
see the contents of sector 360 displayed in hex. Probably this 
will be mostly F's and 0's. 

Zeros indicate sectors that are in use (or thought to be in 
use by the DOS). Actually each 0 marks four sectors in use, 
since this is a bitmap. Each set of two hex digits represents 
one byte. A byte is eight bits, so each two hex digits represent 
eight sectors on the map. F is the hex digit for decimal 15, 
which in binary is 1111. Free sectors on a disk are shown as 
l's, so FF means that there are eight free sectors. C in hex 
equals 12 decimal, which is binary 1100. Thus a C on the map 
means two free sectors followed by two in-use (locked) sec¬ 
tors. In-use sectors are locked out from use by the DOS, 
whether or not this locking was done by the DOS or by some 
other method (for example, this program). Thus, you can re¬ 
serve space which will never be touched by DOS. 

It may take a while to get used to reading the sector map 
if you are not familiar with hexadecimal numbers. To help, 
decimal numbers that show what sector is represented by the 
last bit of the last number on that line are listed on the right 
side of the screen. You can count backwards to identify the 
other sectors. 

Locked Sectors 

Format a new disk and leave it blank. Load and run 
Diskovery, then put the blank disk back in. Choose main 
menu option 9, lock/unlock sectors. Start at sector 700 and 
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specify four sectors. Specify lock. When the beeps stop, go 
back to the main menu and choose option 1; then select op¬ 
tion 4 for a hex map of sector 360. Notice that not all of sector 
360 is used for the hex map. Also notice that the map does 
not start at byte 1 of sector 360. Although the sector identifier 
on the right of the map goes up to sector 751, that is just a 
reference number. Actual disk sectors end with 720. 

Sector 360 also contains this information; bytes 4 and 5 
have the free sector count that is used on the DOS display. It 
is stored in low/high form. Take the value of byte 5 times 
256, add the value of byte 4 (do a decimal dump of sector 360 
if you're uncertain about hex), and the result is the free sector 
count of the disk. This number is updated as needed by the 
DOS, and also by the Diskovery program. 

Note the values of bytes 4 and 5 from the map of your 
blank test disk with the four sectors reserved. It should come 
out to 707 —4, or 703. Go back to the main menu and run op¬ 
tion 8. Leave the same disk in as both source and destination 
disk. 

Specify sector 690 as the starting point. You will hear 
various beeps and clunks. When it's done, run a disk map of 
sector 360 to see the lockouts. What has been done is that sec¬ 
tors 360-368, the DOS directory sectors, have been copied and 
protected, starting at sector 690. Run a sector dump of 690 to 
verify this—it should be a copy of the disk bitmap. 

If an error is made saving a sector in an individual file to 
the disk, only that file is lost. However, if an error is made 
saving a directory entry or the bitmap, it may make all pro¬ 
grams on a disk inaccessible. If you have a copy of these sec¬ 
tors, though, you could put them back aright, making the disk 
healthy again. Thus option 8 can be used to give some measure 
of protection for important disks, by saving the directory sectors 
elsewhere on the disk in case they are needed. You could also 
save directories from a number of disks on a separate directory 
backup disk. Although the sectors might not be absolutely cur¬ 
rent if a lot of changes have been made, they will usually 
allow many otherwise lost programs to be recovered. 

Copying Sectors 

Since the sector 360 bitmap is resaved every time a SAVE is 
done, it is the most likely one to go bad. Check for garbage in 
sector 360 on a problem disk. You may be able to modify it, 
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or to copy sector 360 from a full disk to protect all sectors. 
Option 7 on the main menu allows you to copy single sectors 
from anywhere to anywhere, on the same disk or to other 
disks. The bit map will also be updated with this option. 

The last option on the main menu, 10, will allow you to 
use the various features of Diskovery to examine the comput¬ 
er's main memory, instead of disk storage. For example, select 
this option and give 42240 for the start of memory to look at. 
You may then enter the number of sequential 128-byte blocks 
to dump. Memory will be displayed in 128-byte blocks, since 
this option uses the same routines as the sector dumps and 
each sector is 128 bytes long. 

Next indicate either automatic sequential dumps or pause 
between blocks. Finally, specify the type of display. Remem¬ 
ber that a hex display will take longer to do the conversions 
than the others. With a starting location of 42240, and a 
character dump, you will see some of the BASIC keyword 
identifiers, since you are looking into the brains of the BASIC 
cartridge. Somewhere in main memory, you could also find 
the actual lines for the Diskovery program since it is currently 
loaded in. Look at memory starting at 1536 to see the machine 
language routine to toggle the print mode. Those numbers in 
decimal should be the same as the DATA items on lines 230 
and 231 in the program listing. 

Use this program with caution. Misuse can really scramble a 
disk. But proper use will allow you to rejuvenate sick disks 
and to perform nice non-DOS tricks. Either way, you'll learn a 
lot in the doing. 


Diskovery Variables List 


BIT$ 

BLA$ 

BUF$ 

DSKINV$ 

G$ 

H$ 

HEX$ 

KNOT$ 

ND$ 

OAR$ 


Lookup table of decimal numbers with successive bits 
set. 

String of blanks for erasing screen text. 

Buffer area used to store information from a sector, or to 
be sent to a sector. 

Calls the OS subroutine for disk access. 

Holds Y or N for user response. 

Stores BUF$ contents after hex conversion. 

Lookup table of hex digits for conversion. 

Machine language routine to logically NOT a number. 
Logically ANDs a number with another number. 
Logically ORs a number with another number. 


239 




Chapter 5 


VB$ 

AP 

B 

BIT 

BITMOD 

BLK 

BN 

CN 

FN 

FP 

FUN 

H 

HH 

HL 

I 

J 

K 

LK 

M 

MEM 

N 

NB 

NFRE 

NFREH 

NFREL 

NR 

NSL 

NUM 

P 

PK 

Q 

RSLT 

SEC 

SECHI 

SECLO 

SS 

SSH 

SSL 

TY 

WH 


Machine language routine to initialize the vertical blank 
routine set up on page 6. 

Decision for auto trace or pause. 

Temporary variable for reading data into strings. 
ATASCII value of BIT$(BITMOD). 

Index to BIT$. 

Start of disk control block in memory. 

Bytes of same number to insert into BUF$. 

Number of characters to insert into BUF$. 

File number from sector data. 

Forward pointer to next file sector. 

Holds function number for disk access routine. 

ATASCII value of BUF$ characters to convert to hex. 
High byte of H. 

Low byte of H. 

Loop index variable. 

Temporary storage and loop index. 

Byte from screen in printer dump routine. 

Choice variable for lock/unlock options. 

Temporary storage of PEEK values. 

Pointer to memory block for dump. 

Index variable to H$. 

New byte value to insert into BUF$. 

Number of free sectors from sector 360. 

High byte of NFRE. 

Low byte of NFRE. 

Error number for bad sector read. 

Number of sectors to lock/unlock. 

Number of sectors or blocks to look at. 

Byte from keyboard to continue at keypress. 

Variable for temporary PEEK value storage. 

USR function dummy variable. 

Result of logical operation subroutine. 

Sector to access. 

High byte of SEC. 

Low byte of SEC. 

Starting sector for operations. 

High byte of SS. 

Low byte of SS. 

Type of dump requested. 

Main menu choice. 
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Diskovery Subroutines List 


100-260 

300-770 

660-670 

780-1000 

1040-1105 

1106-1160 

1200 

1400-1440 

1600-1640 

1700-1799 

1800-1840 

2010-2200 

3000-3060 

4040-4060 

4205-4240 

5015-5060 

7010-7100 

8010-8100 


Initialization. 

Main menu and submenus. 

Look at memory instead of disk. 

Handling some menu choices. 

Character dump. 

Change a sector. 

Erase text. 

Copy sector option. 

Backup directory option. 

Lock and unlock sectors on bitmap, and update free sec¬ 
tor count. 

Single file map options. 

Sector linkage map option. 

Screen dump to printer. 

Hex conversion. 

Hex dump. 

Decimal dump. 

Determine file number and forward pointer. 

Read/write file sector. 


Diskovery 

Caution: The misuse of this program can destroy valuable 
programs; please read the accompanying article before using 
Diskovery. 

For error-free program entry, read "The Automatic Proofreader" in Chapter 1 before typing 
in this program. 

Jft 10 REM LISTING 1 

DO 100 REM DISK OVER. Y *** BY JOHN C. WAUGH -- 
4/83 * * * 

ON 105 CLOSE #2: OPEN #2,4,0, " K: " : CLOSE #4: OPEN 
#4, 12,0, "S: " : POKE 766, 0 
HI 200 DIM BUF$ (130) , DSKINV* (10) , G * ( 1 ) , ND$ (12) 

,HEX*(16),H*(1155),BLA$(38),VB*(11), BIT 
* (8) , OAR* ( 12) ? KNOT* ( 12) 

GP 20 3 HEX*="0123456789ABCDEF" : BLA*=" 

C 37 SPACES!" 

NB 205 DATA 10 4,32,83,228,96 

HE 210 RESTORE 205:FOR 1 = 1 TO 5: READ B:DSKINV* 

(I)=CHR*(B)sNEXT I:REM PLA,JSR *53*E4 ( 

DSKINV),RTS 

FH 215 DATA 104, 104, 104, 133,209 , 104,104,37,209 
, 13 3,209,96 
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JE 220 


AP 225 


AC 230 
AG 23 1 


MH 235 


EE 24 0 
OH 245 

FE 250 
EL 260 

CE 300 


BP 3 1 0 
EJ 3 1 5 
MN 320 
HL 325 
PE 330 
FB 335 
JJ 34 0 
PP 34 5 
HI 3 50 
FN 35 1 
EF 355 
GM 360 

PJ 375 

EL 376 
FE 400 


IK 4 30 
GH 44 0 
PN 45 0 

IK 4 80 


RESTORE 2 15:FOR 1 = 1 TO 12: R E A D B:ND$(I, 
I ) =CHR$ (B) : NEXT I: REN PL A , PL A , F'L A , ST A20 
9,PLA,PLA,AND209,STA209,RTS 

OAR$=ND$:OAR$(8)=CHR$(5):KNOT$=ND$:KNOT 
$(8)=CHR$(69):REM CHANGE AND TO OR AND 
EOR FUNCT. 

DATA 7 2, 169,9 , 141,31,208, 173,31,208,20 1 
,5,208,8,173,255,6,73,255,141,255,6 
DATA 17 3,255,6,2 0 1,255,24 0,7, 169, 148, 14 
1, 198,2,208,5, 169, 162, 141 , 198.2, 10 4,76, 
95,228 

RESTORE 230:FOR 1=1 TO 44:READ B:POKE 1 
535+1,B:NEXT I:REN SEE ASSENBLER LISTIN 
G & TEXT 

DATA 104,162,6,160,0,169,6,32,92,228,96 
RESTORE 240:FOR 1=1 TO 11:READ B:VB$(I) 
=CHR$(B):NEXT I 
Q=USR(ADR(VB$)) 

J=128:FOR 1 = 1 TO 8: BIT$ (I ) =CHR$ ( J) :J = J/ 
2:NEXT I 

LN=23:POSITION 0,0:7 CHR$(125);"(ON A S 
TANDARD DOS DISK":? "SECTORS 361-368 AR 
E THE DIRECTORY)":? :? 

? " l=LOOK AT SECTOR" 

? ”2 = L□O K AT SECTOR AS DIRECTORY SEC" 

? "3 = T R A C E FILE BY HAND" 

? "4 = L O O K AT BLOCK OF SECTORS" 

? "5=SECT0R LINKAGE NAP OF DISK" 

? "6=SINGLE FILE NAP" 

? "7=COPY SECTOR" 

? "8=BACKUP DIRECTORY" 

? "9=L0CK/UNL0CK SECTORS" 

? "10=LOOK AT NENORY" 

? : I NF'UT WH 

ON WH GOTO 400,400,450,480,2010,1800,14 
00,1600,1700,375,1900 

? CHR$(125):? :? :? "STARTING NENORY LO 

CATION";:INPUT MEN 


? : ? "# OF 128 BYTE BLOCKS TO LOOK AT"; 

:INPUT NUM:GOTO 500 

? CHR$(125):? :? :? "(DIRECTORY SECTORS 

= 36 1 - 368)":? :? "WHAT SECTORI NPU 

T SEC 

IF WH=2 THEN TY=l:GOTO 720 
GOTO 600 

? CHR$(125):? :? :? "WHAT SECTOR TO STA 

RT TRACE";:INPUT SEC:GOTO 500 
? CHR$(125):? :? :? "NUMBER OF SECTORS" 

; : INPUT SEC 2: ? :? "STARTING SECTOR" ;: IN 

PUT SEC1 
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AB 500 ? CHR$ ( 125) : ? :? :? " 1=AUT0 TRACE":? "2 

= P A U S E ":? :INPUT AP 

BF 600 ? CHR$ ( 125) : ? :? :? "TYPE OF DISPLAY:": 

? :? " 1=CHARACTER" : ? :? " 2 = HEX ADEC I MAL " 

:? :? "3 = DEC IMAL" 

AL 605 IF SECO360 THEN ? : INPUT T Y : GOTO 650 

CA 6 10 ? : ? " 4 = SECTOR 360 HEX MAP":? : INPUT TY 

GK 650 IF WHO10 THEN 700 

1,1660 L M = 1 2 : ? CHR$ ( 125) : 5EC= 1 : FOR M = MEM TO ME 
M+128*(NUM-1) STEP 128:P0SITI0N 2,0:? " 

MEMORY STARTING AT ";M 

10 670 FOR PK = 1 TO 1 28 : BUF$ ( F'K ) = CHR$ ( PEEK ( M + PK 
— 1 ) ) :NEXT P K:GOTO 735 

LF 700 IF WH=4 THEN FOR SEC=SEC1 TO SEC1+SEC2- 

1 

JP 720 BUF$ ( 128) =" " : FUN = 8 2: REM GET SECTOR 

OD 730 GOSUB 80 10 

HN 735 REM HOLD PLACE FOR FUTURE DISASSEMBLER 
L I NK 

AJ 7 4 0 ON T Y GOSUB 1040,4040,5015,4040 
DJ 765 IF WH= 10 THEN 840 
DP 770 IF WH<>2 THEN 800 

IL 780 ? : ? "DIRECTORY ENTRY BYTES:":? :? "STA 

RT + 0 = FLAG" : ? " (66 / NORMAL. ; 1 28/DELETED; 98 

/LOCKED;etc)" 

DJ 790 ? "START+l , 2 = SECTOR COUNT LO/HI" :? "STA 
RT+3,4=STARTING SECTOR LO/HI" 

HI 800 GOSUB 7010: REM GET FILE # AND FORWARD P 

OINTER (FN AND FP) 

CJ810 POSITION 2,2 0:? "FILE NO„ = ";FN: POSIT I 

ON 2,21:? "FORWARD POINTER TO SECTOR " ; 

FP 

LL 820 POSITION 2,22:? "EXTRA SECTOR BYTES = " 

; 125-ASC (BUF$ ( 128) ) 

L0 840 I F PEEK (1791) — 255 THEN GOSUB 3 000 

DC 845 IF AP= 1 THEN GOTO 920 

BC 850 POSITION 2,23:? "ANY KEY TO CONTINUE";: 
GET #2,P:GOSUB 1105 

PD 920 IF WH = 3 AND FF' = 0 THEN POSITION 2,23:? B 
LA$; POSITION 2,23:? "END OF TRACE"; : AP 
=2:WH=1:GOTO 850 

PB 930 IF APOl THEN POSITION 2,21:? BLA$:POSI 
TION 2,21:? "PRESS ANY KEY TO CONTINUE" 

;:GET #2,P 

Cl 935 IF WH= 1 0 THEN NEXT M 

CE 940 IF WH= 3 THEN SEC = FP:GOTO 720 

IG 950 IF WH= 4 THEN NEXT SEC 

IN 1000 GOTO 300 

IN 1040 IF WH= 10 THEN 1047 
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JC 1045 

PL 1047 
MJ 1060 

NH 1065 

DL 1067 

FO 1069 
FB 1070 
BC 107 1 

KF 1072 

KH 1073 

LN 1075 
LA 1078 
OH 1 103 
(IF 1 1 05 
IH 1 1 06 

DA 1107 

NP 1110 

IC 1112 
LE 1114 
NC 1116 

MO 1118 

EL 1120 

OE 1122 

PA 1130 

LH 114 2 

KI 1144 

CF 1146 
KB 114 8 

MC 1150 

BF 1160 


RETUR 


POSITION 0,0:7 
C;" (BEEP= 

POKE 766,1 
? "BYTE","0 2 4 


CHR$(125);"SECTOR 
CODE AT S3) " : ? 


# " ; SE 


6 8 


A 

LTH":? :FOR 1=1 TO 8 

? 16*(1-1);"-":16*1-1,:FOR J=0 TO 

=16*(1-1)+1+J 


C EI3 SPACES!SST 

15: K 


IF ASC(BUF$(K,K))=155 
? CHR$(253) ; "D" ; :POKE 
? BUF$(K,K); 

NEXT J 

IF S E C < 3 61 OR SEC>368 


THEN POKE 766,0: 
766 ,1:GOTO 1070 


THEN ? : G O T O 107 


POSITION 30,3+1:7 256*ASC(BUF$(16*(I-1 

)+5))+ASC(BUF$<16*(I—1)+4)) 

POSITION 35,3+1:7 256*ASC(BUF$(16*(I-1 
) +3) ) +ASC(BUF$ ( 16* ( I — 1 ) +2) ) 

NEXT I:POKE 766,0 
RETURN 

IF PEEK(1791)=255 THEN GOSUB 3000 

IF WH=10 THEN POP :GOTO 935 

FOR 1=0 TO 3:POSITION 2,20+1:7 BLA$;:N 

EXT I 

GOSUB 1200:7 "CHANGE SECTOR (Y/N)";:IN 
PUT G$:IF G$<>"Y" THEN RETURN 
GOSUB 1200:7 "INSERT # <N) OR CHARACTE 

RS (C > "; : I NPUT G$ 

IF G$="N" THEN 1130 
IF G$<>"C" THEN 1110 

H$=" ":GOSUB 1200:7 "HOW MANY CHARACTE 

RS TO CHANGE";:INPUT CN 

GOSUB 1200:7 "START AT WHICH BYTE";: IN 
PUT BYTE 

GOSUB 1200:7 "TYPE ";CN;" CHARACTERS T 
O BE INSERTED..":INPUT H$ 

BYTE=BYTE+1:BUF$(BYTE,BYTE+CN-1)=H$;GO 
TO 1150 

GOSUB 1200:7 "HOW MANY BYTES TO SAME # 
"; : INP U T BN 

GOSUB 1200:7 "BYTE # TO BEGIN MOD. ";: 
INPUT BYTE:B=BYTE+1 

GOSUB 1200:7 "OLD BYTE " ; BYTE; " = " ;ASC ( 
BUF$ < B,B) ) ; 

7 " II NEW BYTE ";BYTE;"=";:INPUT NB 

FOR I= B TO B + BN-1 : BUF$ ( I , I ) =CHR$ ( NB) :N 
EXT I 

G$=" " : GOSUB 1200:7 "TYPE ? Y ? TO MODIF 

Y SECTOR";:INPUT G$:IF G$<>"Y" THEN 11 
05 

FUN=87:GOSUB 8010:POP :GOTO 720 
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OP 1 200 
OB 1400 

DH 14 10 

JA 14 30 

MM 14 4 0 

DK 1600 

EH 1610 

NH 16 2 0 

BC 1630 

OM 1640 

FC 1700 
EO 1 705 
DE 17 10 
IN 1720 


CK 1722 

BF 1725 
FL 1730 

JE 1735 


POSITION 2,21:7 BLA$:POSITION 2,21:RET 
URN 

POSITION 0,0:7 CHR$(125);:7 :? "COPY W 

HICH SECTOR";:INPUT SEC:7 :? "INSERT S 

OURCE DISK, HIT ANY KEY" 

GET #2,P:BUF$(128)=" ":FUN=82:GOSUB 80 

10:SECT=SEC:7 :? "SAVE TO WHAT DEST. S 

ECTOR";:INPUT SEC 

7 :7 "INSERT DEST- DISK, HIT ANY KEY": 

GET #2,P:FUN=87:GOSUB 8010:LK=1:SS=SEC 
:NSL=1:GOSUB 1710 

7 :7 "OLD SECTOR ";SECT;:7 " SAVED AS 

NEW SEC ";SEC:7 :? "ANY KEY FOR MENU": 

GET #2,P:GOTO 300 

POSITION 0,0:7 CHR$(125);:7 :? "INSERT 

DISK W/DIR. TO SAVE":7 "AND HIT ANY K 
EY TO CONTINUE":GET #2,P 

FUN=82:BUF$(128)=" ":FOR 1=0 TO 8:SEC= 

360+1:GOSUB 8010:N=128*1+1:H$(N,N+127) 
=BUF$:NEXT I 

7 :7 "STARTING SECTOR TO SAVE DIR. AT" 

;:INPUT SS:7 :? "INSERT DEST. DISK, PU 
SH ANY KEY":GET #2,P 

FUN = 87: FOR 1=0 TO 8: SEC = SS + I :N=128* I + 1 
:BUF$=H$(N,N+127):GOSUB 8010:NEXT I:LK 
= 1 :N S L = 9: GOSUB 1710 

7 :7 "DIR SAVED ON SEC ";SS;" TO ";SS+ 

8:7 :7 "ANY KEY FOR MENU":GET #2,P:G0T 

0 30 0 

POSITION 0,0:7 CHR$(125):7 "1=L0CK":7 

"2=UNL0CK":7 :INPUT LK 

7 : 7 : 7 "START AT SECTOR"; : INPUT SS:7 

:7 "HOW MANY SECTORS"; : INPUT NS L 
SEC=360:FOR 1=0 TO NSL-1:BUF$<128)=" " 

:FUN=82:GOSUB 8010 

S = SS+I:SSH=I NT< S / 8 ) :SSL=3-8*SSH:BYTE=A 
SC(BUF$<11+SSH)):BITM0D=SSL+1:BIT=ASC( 
BIT$(BITMOD)) 

Q=USR(ADR(ND$),BIT,BYTE):IF (LK=2 AND 
PEEK(209)>0) OR <LK=1 AND PEEK(209)=0) 
THEN 1795:REM ALREADY RIGHT BIT 
IF LK=2 THEN Q=USR(ADR(OAR$),BIT,BYTE) 
:RSLT=PEEK(209):GOTO 1735 

Q = USR(ADR(KNOT*) , BIT,255 > :RSLT = PEEK(20 
9):Q=USR(ADR( ND$ ),RSLT,BYTE):RSLT=PEEK 
( 209 ) 

BUF$( 1 1+SSH)=CHRi (RSLT) :NFRE = ASC ( BUF$ ( 
4))+256*ASC(BUF$(5)):IF LK=1 THEN NFRE 
=NFRE—1:GOTO 1745 


245 



Chapter 5 


LL 1740 
DE 1745 

BH 1750 

OJ 17 90 
PO 1795 
KG 17 99 
ND 1800 


ND 1810 

PL 1820 
CL 1830 


LP 1840 
GG 2010 


EN 2020 

FE 2025 
HO 2030 

OP 2035 
PE 2038 
OC 2040 
LC 2050 

LC 2060 
AO 2100 
OK 2150 
OC 2160 

OD 2200 
IA 3000 

IF 3020 
OC 3030 
EH 3035 
PB 3036 

GP 3040 
BD 3045 

UK 3047 
MH 3050 
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NFRE=NFRE+1 

NFREH=I NT(NFRE/256) :NFREL = NFRE-256*NFR 
EH 

BUF$ ( 4 )= CHR* < NFREL) :BUF$(5)= CHR$(NFREH 
) 

FUN=87:GOSUB 8010 

NEXT Is IF WH = 7 OR WH = 8 THEN RETURN 
GOTO 300 

BUF$ ( 128) =" " sN = 0sPOSITION 0,0s? CHR$ ( 

125) s? "FILE STARTS AT SECTOR"; s INPUT 
SECs POKE 82, Is POKE 201,5s? 

FUN = 82 sGOSUB 8010s GOSUB 7010:N = N+1: IF 
N = 9 THEN N=ls? s? "CUP>"; 

? SEC,sSEC=FPsIF FP<>0 THEN 1810 
POKE 82,2sP0KE 201,10s? :? s? "END OF 

MAP..." : IF PEEK(1791)=255 THEN GOSUB 3 
000 

POSITION 2,23s? "ANY KEY";:GET #2,PsG0 
TO 300 

? CHR$ (125) sSEC = 0 sFUN = 82sBUF$ ( 128)=" " 

sPOSITION 1,23s? "ANY KEY TO TERMINATE 

*• . 

POKE 764,255s POKE 766, IsFOR J = 0 TO 23s 
POSITION 1, J s ? J*30+1; "-"; (J + l)*30; 
POSITION 9,J s FOR 1 = 1 TO 30;SEC = SEC+1 
IF PEEK(764)=255 THEN GOSUB 8010sGOSUB 
7010s GOTO 2038 

POKE 764,255s POP sPOP s GOTO 2150 
IF NROl THEN ? “ * " ; : GOTO 2100 

IF FNC10 THEN ? CHR$(FN+48);:GOTO 2100 
IF FN >9 THEN IF FN<36 THEN ? CHR$(FN + 5 
5) ; s GOTO 2 100 

IF F N > 3 5 THEN ? CHR$(FN + 61) ; 

NEXT IsNEXT J 

IF PEEK(1791)=255 THEN GOSUB 3000 
POSITION 2,23s? BLA$; sPOSITION 1,23s? 
"ANY KEY"; 

POKE 766,0:GET #2,P:GOTO 300 

POKE 764,255s POKE 766, Is TRAP 3060sCLOS 

E #3 s OPEN #3,8,0, "Ps " 

FOR J = 0 TO L M:FOR 1=0 TO 39 
POSITION I,JsGET #4,K 
IF K >127 THEN K=K-128 

IF K <32 OR K =12 7 THEN ? #3; sGOTO 3 

045 

? #3;CHR$(K); 

NEXT IsLPRINT sIF PEEK(764)=255 THEN N 

EXT J s GOTO 3050 

POKE 764,255s POP sGOTO 3050 

LPRINT sLPRINT sLPRINT 
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HG 3060 
EB 4040 


DB 4050 

DO 4060 
CD 4205 

HG 4 2 10 

GJ 4220 

KK 4240 
IK 5015 
MN 50 17 
DG 5020 


PD 5025 


GP 5030 
FN 5040 

Art 5050 
KL 5060 
IH 7010 

GE 7050 

KI 7 100 
H« 80 10 

DP 8020 
PG 8040 


Nrt 8050 
IC 8060 
Grt 8070 
II 8080 
GN 8085 
GL 8086 
NN 8090 


rtF 8095 
U 8 100 


POKE 766,0:TRAP 40000:RETURN 
FOR 1 = 1 TO 382 STEP 3: H = ASC(BUF$ < I NT(I 
/3) +1 ) ) :HH=I NT (H/16) :HL = H-16*HH:HH = HH + 
1:HL=HL+1 

H$(I,I)=HEX$(HH,HH):H$ < I + 1 ,I+1)=HEX$(H 
L , H L ) : H$ ( 1+2, I -+ 2 ) = " " : NEXT I 

IF WH=10 THEN ? :GO T O 4210 

? CHR$(125):? :? "SECTOR ";SEC;" HEX D 

UMP" : ? 

FOR 1=1 TO 16:7 8*(I—1);";8#I—1,H$<2 
4* < I -1 ) -+1 ,24*1) -.NEXT I 

IF T Y = 4 THEN J = 47:FOR 1=5 TO 16:P0SITI 

ON 36,1:7 J;:J=J+64:NEXT I 

RETURN 

POKE 82,1:POKE 201,5:REM COLUMN WIDTH 
IF WH=10 THEN GOTO 5025 

POSITION 2,0:7 CHR$(125);"SECTOR ";SEC 
;" DECIMAL DUMP" 

7 :7 , :F OR 1=0 TO 7:7 I,CHR$ (30) ; :NEXT 

1:7:7 

FOR 1 = 1 TO 16:7 8 * < I - 1 ) , 

FOR J=1 TO 8:7 ASC(BUF$ (8* (I — 1 ) +J) ) ,CH 

R$(30);:NEXT J:7 

NEXT I:POKE 201,10:POKE 82,2 

RETURN 

FP=ASC(BUF$(126)):0=USR(ADR<ND$),FP,3) 
:FP=PEEK(209)*256:FP=FP+ASC(BUF$(127)) 
FN=ASC(BUF$(126)):Q=USR(ADR(ND$),FN,25 
2) :FN=I NT (FN/4) 

RETURN 

BLK=768:REM START OF DISK CONTROL BLOC 

k 

POKE BLK+1,1:POKE BLK+2,FUN 

ABUF = ADR(BUF$) :AH I = I NT (ABUF/256) :ALO = A 

BUF-256*AHI 

POKE BLK-t-4 , ALO: POKE BLK + 5, AHI 
SECHI = I NT (SEC/256) :SECLO = SEC —256*SECHI 
POKE BLK+1 0, SHCLO: POKE BLK-+ 1 1 , SECH I 
Q=USR(ADR(DSKTNV$)):NR=PEEK(BLK+3) 

IF WH=5 THEN 8100 
IF NR=1 THEN 8100 

POSITION 0,0:7 CHR$(125):7 :7 :7 "SECT 

OR ";SEC; = BAD SECTOR":IF AP=1 THEN 

8100 

7 :7 "ANY KEY TO CONTINUE":GET #2,P:P0 

P :GO TO 300 

RETURN 
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Appendix 


How to Type In Programs 


In order to make special characters, inverse video, and cursor 
characters easy to type in, we use the following listing 
conventions for all the programs in this book. Please refer to 
the table and explanations if you come across an unusual sym¬ 
bol in a program listing. 


Conventions 

Characters in inverse video will appear like: 
Enter these characters with the Atari key. 


IMMERSE UXDE 


When you see Type See 


(CLEAR) 

ESC 

SHIFT 

< 

*s 

Clear Screen 

( UP } 

ESC 

CTRL 

- 

* 

Cur sor Up 

( DOWN > 

ESC 

CTRL 

= 

4 - 

Cur sor Down 

(LEFT > 

ESC 

CTRL 

+ 

<r 

Cursor Left 

(RIGHT) 

ESC 

CTRL 

t 

-*■ 

Cursor Right 

(BACK S) 

ESC 

DELETE 


Backspace 

(DELETE) 

ESC 

CTRL 

DELETE 

£1 

Delete Character 

( I NSERT > 

ESC 

CTRL 

I NSERT 

U 

Insert Character 

(DEL LINE) 

ESC 

SHIFT 

DELETE 


Delete Line 

(INS LINE) 

ESC 

SHIFT 

INSERT 

□ 

Insert Line 

( T AB ) 

ESC 

TAB 


► 

TAB key 

(CLR TAB) 

ESC 

CTRL 

TAB 

□ 

Clear TAB 

(SET TAB) 

ESC 

SHIFT 

TAB 

□ 

Set TAB stop 

( BELL ) 

ESC 

CTRL 

n 

X- 

Q 

Ring Buzzer 

(ESC ) 

ESC 

ESC 



ESCape key 


Graphics characters, such as CTRL-T, the ball character, will 
appear as the normal letter enclosed in braces, {T}. 

A series of identical control characters, such as 10 spaces, 
3 cursor lefts, or 20 CTRL-Rs, will appear as {10 SPACES}, {3 
LEFT}, (20 R}, etc. If the character in braces is in inverse 
video, that character or characters should be entered with the 
Atari key. 

Program entry can be mistake-proof if you use "The 
Automatic Proofreader" by Charles Brannon; see Chapter 1. 
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Index 


abbreviations 48 
address 4 

ADSR envelope 23-24 

adventure games 101-2 

"Alphabone Hunt" program v, 121-25 

altitude 209 

ANTIC chip 3 

applications 163-219 

arrays 19-21, 38, 167-68 

array/string table 40-41 

"Art Class" program 135-40 

ASCII 166 

Atari 825 printer 156 
Atari Program Recorder 221 
"Atari Tape Enhancer" program package 
221-24 

ATASCII 5, 38-39, 41, 231, 233, 236 
attack 23 

audio control register 214 
"Automatic Proofreader, The" 47-49 
azimuth 209 
BASIC keywords 185 
binary configurations of memory loca¬ 
tions, manipulating 13-18 
border color 8 

"Box Hunt" program 99-100 
BREAK key 132, 216 
disabling 8 
bubble sort 195 
buffer 222, 229-30 
cassette buffer 222 
characters 56, 103, 121, 154-55 
checksum 47 
chords 25 

"Chords" program 25, 30-31 
cold start 8 

color 8-9, 14, 45-46, 126, 154 
"Color Matcher" program 45-46 
color registers, POKE and 8-9 
comma 157 

COMPUTEI's First Book of Atari Graphics 
93 

COMPUTEI's Mapping the Atari 12 
condensed print 167 
COPY DOS command 229 
copying sectors 238-39 
"Coupon File" program 182-92 
cursor 9-10 
cursor position 10 
DATA statement 156, 158, 195 
DATA statement file 193 
decay 23 

disabling the keyboard 12 


"Disk Catalog Utility" program v, 
225-28 

disk control block 229 

disk directories 163-64 

disk directory 225-26 

disk drive 135, 182 

disk file ID number 236 

disk files v, 135, 167-68, 198, 225-39 

disk mapping 235-36 

"Diskovery" program 229-47 

display list 154 

display list interrupt 136 

distortion 23 

DLL See display list interrupt 
DLI pointer 136 

"Dollars from Heaven" program 93-98 
DOS 229 

DOS directory 229-39 
DOS sector map 236 
"Dot Drawing" program 132-34 
"Dots" program 73-78 
"Dragon's Den" program 101-12 
DRAWTO command 44, 163 
duration, of a musical note 25, 214-15 
dynamic keyboard 193 
education 119-60 

educational programs, adding excitement 
to 154-55 

"Envelope" program 26-27 
Epson MX-100 printer 168 
"Exciting Inputs" program 155 
filename 135 
files 167-68 
fine scrolling (XL) 11 
FOR-NEXT loop 142 
foreign language symbols (XL) 11 
games 53-117 
GET statement 5 
GOSUB 19, 21 
GOTO statement 21 
graphics 6, 20-21, 14, 44, 56, 103, 121, 
154-55, 163 
graphics cursor 10 
GRAPHICS 0 mode 11, 136, 163 
GRAPHICS 2 mode 45 
GRAPHICS 3 mode 43 
GRAPHICS 8 mode 43, 136 
GRAPHICS 10 mode 135-37 
GT1A graphics chip 3, 135 
HELP key (XL) 12 

"Horizon: A Celestial Coordinates Cal¬ 
culator" program 209-13 
"Hyperword" program 141-47 


INPUT statement 5 

interrupt 56, 93, 136, 148, 216, 231 

inverse characters 9-10 

inverse key 6-7 

inverse video 6 

"Investment Tracker" program v, 

193-208 

invisible disk files 232-34 
"Invisible Music" program 214-17 
joystick 19-22, 56, 65, 73-74, 79, 99, 
102-3, 113, 135 

"Joystick Reading with Arrays" program 
21-22 

"Joystick Reading with GOTO" program 
22 

joystick routines, efficient placement of 
19 

JSR opcode 216, 230 
key 6, 7, 8, 9, 12, 14, 43, 53, 65, 80, 121, 
132, 141, 216, 230 
keyboard 5-6, 163, 193 
checking with peek 5 
keyboard buffer 5-6 
keycodes 5 

large characters 154-55 
LIST command 158 
LOAD DOS command 229 
locked sectors 237-38 
logical program line 185 
LPRINT statement 225 
luminance 8, 45 

machine language routines 53, 21, 163 
machine language, mixed with BASIC 
66-67 

"Melodies" program 24, 27-29 
"Memory Match" program v, 113-17 
music, outside of BASIC 214-16 
"Nessie" program v, 53-64 
NEW command 43 
note, musical 214-16 
offset 41-42 

operating system 229-30 

OPTION key 7, 80, 141 

PEEK function 3-5 

pitch 23, 25 

"Player 1" program 29 

"Player 3" program 32 

"Player 4" program 26, 37 

player/missile graphics 3, 14, 53, 80, 121 

PLOT command 20-21, 44, 163 

POKE statement 3-5, 132 

POKEY chip 3 

POSITION statement 10, 57 

protecting disk files 232 

"Pyramid Math" program v, 126-31 


question mark, input without 163 
redefined characters 56, 103, 121 
register 1, 4, 8-9, 14, 214 
release 23 

return key mode 193, 195, 196 
"Reversi" program v, 79-92 
right ascension 209 
RTS opcode 216, 230 
SAVE command 158 
scalars 38 

screen blanking 8-9 
screen width 9 
scrolling 11 

sectors 229, 236, 237-38, 238-39 
SELECT key 7, 53, 80, 141, 230 
sequential files 167-68 
SETCOLOR statement 8-9, 126, 154 
shadow registers 4 
"Shopping List" program 163-79 
6502 microprocessor 3 
"Song Editor" program 26, 32-36 
sort 195 

sound 11, 23-37, 214-17 
sound register 1, 14, 214 
sound synthesizers 23 

J 

speaker 8 

special characters, printing 157-58 
START key 7, 65, 80, 121 
"Stock Market" program 148-53 
stocks 193-97 
string variables 38, 41-43 
strings 38, 41-43, 222 
sustain 23 

SYSTEM RESET key 8, 9, 14, 43 
tabbing 10 

"Tank" program 65-72 
tape 221-24 

"Tape File Maker" program 222-23 
"Tape File Reader" program 223-24 
tape files 221-22 
"Test Maker" program 156-60 
text cursor 10 

text window 132, 136, 141, 154, 163 
timer interrupt 216 
tone 214 
transposition 48 
TRAP statement 20-21 
typing in programs 251 
undeleting disk files 231-32 
"Understanding PEEK and POKE" pro¬ 
gram 13-18 
universal time 209 
USR statement 56, 67, 21 
variable name table 38-40 
variables 19-21, 38-43, 167-68 
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VBI. See vertical blank interrupt 
VBLANK 155 

vertical blank interrupt 56, 93, 148, 216, 
231 

VIC-20 computer 221 


voice 23, 214 

volume 23 

warm start 8 

wild card 225, 226 

XL operating system 11-12 
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If you've enjoyed the articles in this book, you'll find the 
same style and quality in every monthly issue of COM¬ 
PUTE! Magazine. Use this form to order your subscription 

to COMPUTE! 


For Fastest Service 
Call Our Toll-Free US Order Line 

800 - 334-0868 

In NC call 919-275-9809 


COMPUTE! 

P.O. Box 5406 
Greensboro, NC 27403 

My computer is: 

□ Commodore 64 □ TI-99/4A □ Timex/Sinclair □ VIC-20 □ PET 

□ Radio Shack Color Computer □ Apple □ Atari □ Other_ 

□ Don't yet have one... 

□ $24 One Year US Subscription 

□ $45 Two Year US Subscription 

□ $65 Three Year US Subscription 

Subscription rates outside the US: 

□ $30 Canada 

□ $42 Europe, Australia, New Zeland/Air Delivery 

□ $52 Middle East, North Africa, Central America/Air Mail 

□ $72 Elsewhere/Air Mail 

□ $30 International Surface Mail (lengthy, unreliable delivery) 

Name _ 

Address _ 

City _ State _Zip_ 

Country _ 

Payment must be in US funds drawn on a US bank, international 
money order, or charge card. 

□ Payment Enclosed □ Visa 

□ MasterCard □ American Express 

Acct, No. _ Expires _ /_ _ 


Your subscription will begin with the next available issue. 
Please allow 4-6 weeks for delivery of first issue. Subscription 
prices subject to change at any time. 


751199 




COMPUTE! Books 

Ask your retailer for these COMPUTE! Books or order 
directly from COMPUTE!. 

Call toll free (in US) 800-334-0868 (in NC 919-275- 
9809) or write COMPUTE! Books, P.O. Box 5406, 
Greensboro, NC 27403. 


Quantity Title Price* Total 

_ Machine Language for Beginners $14.95 _ 

_ The Second Book of Machine Language $14.95 _ 

_ COMPUTEI's Guide to Adventure Games $12.95 _ 

_ Computing Together: A Parents 8c Teachers 

Guide to Computing with Young Children $12.95 _ 

_ Personal Telecomputing $12.95 _ 

_ BASIC Programs for Small Computers $12.95 _ 

_ Programmer's Reference Guide to the 

Color Computer $12.95 - 

_ Home Energy Applications $14.95 _ 

_ Creating Arcade Games on the Timex/Sinclair $12.95 _ 

_ COMPUTERS First Book of PET/CBM $12.95 _ 

_ Commodore Peripherals: A User's Guide $ 9.95 _ 

_ All About the Commodore 64, Volume 1 $12.95 _ 

_ COMPUTEI's Commodore Collection, Volume 1 $12.95 _ 

_ Every Kid's First Book of Robots and Computers $ 4.95t_ 

_ The Beginner's Guide to Buying a 

Personal Computer $ 3.95t_ 


* Add $2.00 per book for shipping and handling, 
t Add $1.00 per book for shipping and handling. 
Outside US add $5.00 air mail or $2.00 surface mail. 

Shipping & handling: $2.00/book _ 

Total payment _ 

All orders must be prepaid (check, charge, or money order). 

All payments must be in US funds. 

NC residents add 4.5% sales tax. 

□ Payment enclosed. 

Charge □ Visa □ MasterCard □ American Express 

Acct. No_Exp. Date_ 

Name_ 

Address_ 

City_State_ Zip_ 

'Allow 4-5 weeks for delivery. 

Prices and availability subject to change. 

Current catalog available upon request. 





COMPUTE! Books 

P.O. Box 5406 Greensboro, NC 27403 

Ask your retailer for these COMPUTE! Books, If he or she 
has sold out, order directly from COMPUTE!. 

For Fastest Service 
Call Our TOLL FREE US Order Line 
800-334-0868 
In NC call 919-275-9809 


Quantity Title Price Total 

_ COMPUTE!'s First Book of Atari $ 12.95 _ 

_ COMPUTE !'s Second Book of Atari $ 12.95 _ 

_ COMPUTED Third Book of Atari $ 12.95 _ 

_ COMPUTED First Book of Atari Graphics $ 12.95 _ 

__COMPUTERS Second Book of Atari 

Graphics $ 12.95 _ 

_ Mapping the Atari $ 14.95 _ 

_ COMPUTE!'s First Book of Atari Games $ 12.95 _ 

_ The Atari BASIC Source Book $ 12.95 _ 

_ Inside Atari DOS $ 19.95 _ 

_ Machine Language for Beginners $ 14.95 _ 

_ Second Book of Machine Language $ 14.95 _ 

_ Computing Together: A Parent and 

Teacher's Guide to Using Computers 

with Young Children $ 12.95 _ 

_ Personal Telecomputing $ 12.95 _ 

_ Home Energy Applications on Your 

Personal Computer $ 14.95 _ 


Add $2.00 shipping and handling. Outside US add 

$5.00 air mail or $2.00 surface mail. 

Please add shipping & handling for each 

book ordered_ 

Total enclosed or to be charged_ 

All orders must be prepaid (money order, check, or charge). All 
payments must be in US funds. NC residents add 4V2% sales tax. 

□ Payment enclosed Please charge my: □ Visa □ MasterCard 

□ American Express Acct. No. Expires 


Name_ 

Address_ 

City_ State_ Zip. 

Country 


Allow 4-5 weeks for delivery. 

Prices and availability subject to change without notice. 







W hether you've had an Atari for years, or just bought 
one of the newer XL models, you'll find COMPUTEI's 
Atari Collection, Volume 1 full of useful, never- 
before-published articles and programs. 

There are games and educational programs to entertain 
and challenge, tutorials that illustrate BASIC programming 
techniques, and applications that turn your computer into a 
management tool. 

The editors of COMPUTE! have collected the best original 
programs and articles from more than two dozen experi¬ 
enced Atari programmers. High-quality programs and clearly 
written articles—both hallmarks of COMPUTE! Publications— 
will show you just what your Atari can do. 

Here's a sample of what's inside: 

• "Nessie," a nonviolent game where you try to photograph 
the elusive Loch Ness monster. 

• Utilities which make it easy to catalog disks or locate pro¬ 
grams on tape. 

• "Reversi" and "Memory Match,'' thinking games that probe 
your logic while you have fun. 

• "Diskovery," to help you explore your disks, sector by sector. 
• Programs for children that teach and entertain. 

• Editors to help you create sounds and songs for that special 
program. 

• "Investment Tracker," a data base program that stores and 
■analyzes your investments. 

• Joystick routines you can add to any program. 

• An introduction to PEEK and POKE, with numerous practical 
examples. 

• And "The Automatic Proofreader," which helps you cor¬ 
rectly type in programs. 

It's been almost a year since COMPUTE! Publications re¬ 
leased a new Atari book. Now, with its all-original programs 
and articles, and with something for both experienced and 
beginning Atari users, COMPUTEI's Atari Collection, Volume 1 
offers a new and detailed look at your favorite computer's 
power and flexibility. 


ISBN 0-942386-79-5 



